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Table of contents 


179 Global Definitions 

1 Local Definitions 
Driver Prologue Table 
Local Storage 


Port Vector : 

LISCTRL_INIT = Controller Initialization 
TSHISTORY = Save Ristory in the buffer 
TSSTRENTRY = Entry to start driver. 

TSGETFFI = Get the FFI block and initialize FFI interface 

TSSHUTENTRY = Shutdown entry point 

QE TIMER BUILDING AND WAITING ROUTINES 

SHUT DONE = Datalink shutdown complete entry 

TSASYNTERR = Process async errors from datalink 

TSSETENTRY = Set @ new multicast message 

TSUNIT_INIT = Unit Initialization 

T 

T 


T 


LTSUCB_INIT = Initialize a terminal UCB 
$STARTIO = Start I/0 routine : 
SFLUSH_DATA = Flush buffered output data and drain TT buffer 
LTSABORT = Abort (fluth) buffered output data 

TSFLOW_ CHANGE = Change flow control 

TSXON = Resume input stream into class driver 
LTSXOFF = Stop input stream into class driver : 
LTSFFI_RCV_MSG = FAST Interface Receive Complete routine 
PROCESS RECEIVED MESSAGE 
CIRCUIT STATE TRANSITIONS 
PROCESS RECEIVED SLOT DATA 
PROCESS SLOT CREDITS RECEIVED 
BUILD A STOP SLOT 
PROCESS OUTPUT SLOT DATA 
CONSUME CREDIT WHEN FILLING IN SLOT FIELD 
SEND REPLY RESPONSE TO RECEIVED MESSAGE 

SCREATECSB = Create a CSB 

Ww CIRCUIT = Get Concentrator State Block 

ACOCSB = Deallocate a CSB 
EATEUCB = Create an LT UCB 
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ucB 
NGUP_UCB = Cause Terminal Hangup On UCB 
ONRECT = Port Disconnect 


D = Declare circuit dead 

C = Transmit stop message 

ER = Start Timer 

imer Service Routine 

ransmit a message ; 

NE = FFI Transmit done routine : 
NE = Garbage transmit posting routine 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIG#!TS RESERVED. 


® 
* 
* 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. , 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. : 
© 
® 
® 
© 
® 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; Do not remove items from this list. Add X when item is done. 
to be done: 


- LATCP should be allowed to specify the Ethernet device. 

fix slot stop and circuit stop code for correct message format 
including reason code and text. 

- transmit two slots/message from host transmit Loop. 

allocate and be able to send additional buffers posed about the servers 
value of XTRABFRs (in START message). 

- send credits in DATA_B slots. 
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8 8 39 
40 ; 
i 4) PRARARHKH ARKH Tee AHKeKeeeeeKeKeAReKeeeeeKeeeteneteeKetekeneteteneneReeeeeetes 
000 rk ;* Copyright (c) 1982, 1984 . 
$4 rt: :* by digital equipment corporation, maynard, mass. * 
P ® 
009 rf ;* this software is furnished under a License and may be used and copied * 
000 47 ;* wy in accordance with the terms of such License and with the * 
43 48 ;* inclusion of the above copyright notice. this software or any other * 
000 49 ;* copies thereof may not be provided or otherwise made available to any * 
44 29 ;* other person. no title to and ownership of the software is hereby * 
0 1 ;* transferred. * 
0009 26 ;* * 
0000 53 ;* the information in this software is subject to change without notice * 
0000 54 ;* and should not be construed as a commitment by digital equipment * 
3888 2? :* corporation. * 
3* * 
0000 3 :* digital assumes no responsibility for the use or reliability of its * 
44 38 ~ software on equipment which is not supplied by digital. * 
P4 ® 
4964 $ FERRARA AAA A AAA AAT EE AERA AAAAAAATAAAAARAREREKRAKRRERARARARAReReHA eee ees 
0000 6¢ i++ 
0000 63 ; Facility: 
000C 64 ; 
0000 65 ; VAX/VMS Terminal Driver 
0000 66 ; 
0000 67 ; Abstract: 
0000 68 ; 
444 $? 3 Local Area Terminal Port Driver 
0000 71; This is an alternate port driver for use with the VMS terminal 
0000 te i driver. It forms the host end of the Local Area Terminal (LAT) 
0000 {> 3 protocol and communicates with a LAT concentrator to provide 
9464 fe 3 terminal communications on a local area network. 
0000 76 ; This driver performs 10 using a datalink driver via the FFI 
0000 “3 mechanism. Its connection with the datalink driver is controlled 
0000 78 ; by a program called LATCP. 
0000 79 ; 
0000 80 ; 
; Authors: 
0000S 
0000 84 ; Bruce Mann 
44 82 2 Darrell Duffy. 
000 es Joe Marchesani 
0000 87 ; Rich Bailey 
44 3 : : 
44 34 3; Revision history: 
0000 91 ; V03-036 RNGOO36 Rod Gamache 23-Aug-1984 
0000 38 : Fix LTSXOFF to recognize when data input stream has been 
0000 o> § saterrupred or whether the call was an asyc! onous event. 
44 94 ; Fix problem with XON dropping a character (if AP=2). 
000 95 ; Fix problem with output slot processing, that incorrectly 
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96; moved data up in the UCB output buffer area. 


V03-035 RNGOO35S Rod Gamache 7-Aug-1984 
Fix service rating reaching zero. 


V03-034 RNGOO34 Rod Gam 33-Aug-1984 
Make sure LT UCBs can be. scigted by insuring that the 
Logical UCB pointer is pointing at the LT UCB and that 
the REFC has gone to zero. 


v03-033 RNGOO33 Rod Gamache 2-Aug-1984 
Set service rating to sere be Ry tag is reached, else 
don't let service rating r 
we A. hangup bit in the *ALLOCATE UCB code rather than 
un n 
Fix code to correctly format a reject slot. 


v03-032 RNGOO32 Rod Gamache 31-Jul-1984 
Change DISCONNECT routine to not use DELETEUCB bit to 
force $SDASSGN code to delete UCBs, since if there are logical 
UCBs (ie VTs), then the LT UCBs will never get deallocated. 
Put back code to set HANGUP bit, in DISCONNECT routine. 


v03-031 nyeoos' Rod Gama 30-Jul-1984 
Ae. grevious fix where atte uses of CLASS7PORT iterface were 
no xed. 


v03-030 RNGOO30 Rod Gamache 25-Jul-1984 
Fix incorrect useage of CLASS/PORT driver interface for the 
DDCMP CLASS DRIVER. Fix credit check on sending DATA_B slot. 


v03-029 LMP0275 L. Mark Pilant, 24-Jul-1984 15:49 
Initialize the ACL info in the ORB to be a null descriptor 
List rather than an empty queue. This avoids the overhead 
of gy ne unlocking the ACL mutex, only to find out 


9 


443 that the ACL was empty. 
0000 V03-028 RNGOO28 Rod Gamache 21-May-1984 
0000 Remove call to SIDELINEUCB which caused LT units to remain 


“hung’’. Also fix test of service rating. Change the way 
LT units are deleted. 

Change use - Ra pnat buffer. * 
Remove bugech fh genereted when UCB state is halted" on 
call $e L tsbiston ECT (this happens when user doesn't log 
in and unit is disconnected). 
Disable UCB deletion if server is doing a + request. 
Change XOFF and XON routines to save RO, and change number 
of characters checked for input wie. from 4 to 1. 


v03-027 puede? Rod Gamache -May-1984 
Change LAT Multicast Address from AB-00- d -00- 150-00 to 
09-00-2B-00-00-0F, as per LAT Architecture ECO. 


V03-026 RNGO026 Rod Gamache ity tye 
Make better estimate of service rating on essor. 
Always call EXE SDEANONPAGED rather than COMSDRVDEALMEM. 
Fixup server name length when needed before copying into CSB. 


oO 
So 
Oo 
oO 
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0 153 ; 
154; v03-025 ,nroess L. Mark Pilant, 17-Apr-1984 14:04 
136 3 Copy the ORB from the template. rather than zeroing the new 
: one. 

00 1 3 

44 158 ; V03-024 RNGO024 Rod Gamache 9-Apr-1984 
0900 FD ; Add SERVER name to CSB. Count active users on CSB. 

000 161: v03-023 LMPO22 Pilan 27-Mar-1984 14:49 
0000 16¢ : Change UC ucest -gunbic™ to KoRBSO MOUNER and UCB$W_VPROT to 

000 163; T. Also, allocate and Link the ORB into the 

44 198 : OCB af a Deallocate it at deletion. 

0000 166: v04-022 RNGOO22 Rod Gamache 22-Mar-1984 

0000 167 ; Modify algorithm that computes the service rating. 

444 168 : Use XOFF, XON calls to buffer typeahead data. 

0000 170: v04-021 RNGOO21 Rod Gama 19-Mar-1984 

0000 171; Fix call to CLASS ar tear™ - * SETUP. UCB routine to not 

i444 v6 : Ai. called for UNIT #0. 

0000 174; V04-019 RNGOO19 Rod Gamache 27-Dec-1983 

0000 175; General cleanup for V4 release. 

0000 176; 

0000 177 ;-- 
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17? -SBTTL Global Definitions 

: 18 -ENABLE SUPPRESSION 

0 1 j : 

00 184 ; Global definitions 

44 185 ; 

00 186 ; 

0000 187 SLATDEF 3; LAT communication area defs 
44 188 SACBDEF ; Ast control bloc 

000 189 SADPDEF :; Define adapter 

4 190 SCRBDEF 3; Define crb 

000 191 SCXBDEF ; Complex buffer 

0000 18 SDDBDEF 3; Define 

0000 19 SDEVDEF 3; Define device characteristics 
0000 194 SDPTDEF : Define dpt 

0000 195 SDYNDEF 3; Dynamic memory block codes 
0000 196 SFFIDEF ; Fast Interface block 

0000 197 SFKBDEF ; Fork block definitions 

0000 198 SIPLDEF 3; IPL levels 

0000 199 SMTXDEF 3; Mutex offsets 

0000 200 SORBDEF 3; Object's Rights Block offsets 
0000 01 SPCBDEF 3; Process control block 

0000 ¢ SPHDDEF i Process header block 

0000 0 SPRDEF 3; Processor register definitions 
0000 204 SRSNDEF ; Resouce wait codes 

0000 205 STQEDEF 3; Timer queue elements 

0000 soe SUCBDEF ; Define uc 

44 4 SVECDEF 3; Define vector for crb 
0000 $09 STTYDEF ; Define terminal driver symbols 
0000 210 STTDEF ; Define terminal types , 
0000 211 STT2DEF : Define extended characteristics 
0000 $i¢ STTYMACS 3; Define terminal driver macros 
444 AF, STTYDEFS : Define terminal driver symbols 
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09 16 -SBTTL Local Definitions 
13 Macros 
009 p -MACRO ALIGN_LONG 
00 iif ne <.85>, .BLKB <4-<.83>> ; align to longword boundary, if needed 
° ¢ -ENDM ALIGN_LONG 
0000 $98 Conditional bl 
3 on onal assem parameters 
0000 326 | : 
00000001 $000 8 LT_HISTORY = 1 ; keep history of received/transitted ni fra 
0000 9 5388 LT_CRED_CHECK = 1 ; validate credit total for UCBs 
444 3 3388 LT-XMT_CHE = 1 ; validate transmit frame slots dynamically 
0000 a 3 
st a38 s Constants defined for the VMS LAT host implementation 
00000007 0000 235 ° TTY C_BELL z7 ; Control_G (*G) ... bell character 
00000003 0000 236 LATSC_VMS = 3 3 VAX/VMS" product type code 
00000004 0000 $3 LATSC_VMS_VER = 4 ; Part of VAX/VMS v4.0 
00000008 0000 38 LATSC_IPL = 8 ; Fork IPL to synchronize this driver 
00000014 0000 239 LATSC_PROGRESS = 20 ; Must make progress every 20 msgs 
00000002 0000 240 LATSC_XMT_BUFFERS = 2 ; Number of transmit buffers 
00000001 0000 $e LATSC_MAX_RCRED = 1 ; Maximum number of credits extended 
00000050 0000 es LAT$C_UCB_BUFSIZ = 80 3; Size of UCB buffering 
00000004 0000 24 LATSC_UCB_SLOTSIZ = 4 ; Size of formatted slot buffer in UCB 
siaia'eg't 4 0000 244 LATSC_UCB_TIMOUT = g ; Allow 2 seconds before deleting UCB's 
00000020 0000 245 LATSC_MAX_CSBS_ = 3 ; Maximum number of circuits handled 
00000040 0000 246 LATSC_MAX_SLOTS = 64 ; Maximum slots in a message, this also 
0000 247 ; implies max connections per circuit 
00000005 0000 248 LATSC_HI_VER = 5 ; Highest supported LAT protocol version 
00000005 0000 49 LATSC_LO_VER = 5 ; Lowest suppor ted LAT protocol version 
00000005 0000 50 LATSC_CUR_VER = 5 : Current LAT protocol version 
00000000 0000 51 LATSC_CUR_ECO = 0 ; Current LAT protocol ECO version 
000005DC 0000 $26 LATSC_MAX_MSGSIZ = 1500 ; Maximum Data Link message size 
QOOOOOFF 0000 25 LATSC_MAX_SLOTSIZ = 255 ; Maximum Slot size 
00000040 0000 254 LATSC_LOC_LEN = 64 3; Maximum Length of LOCation field 
sss it 3 0000 255 LATSC_GRP_LEN = 32 ; Maximum number of group codes 
000000 4 56 LATSC_SVC_LEN = 8 ; Maximum number of service classes 
00000006 0000 57 LATSC_MAX_SERVICES = 6 ; Maximum number of services 
00000009 0000 58 LATSC_MULTIADD1 = *x0009 ; LAT Multicast address 
44 44 Bad 59 Wo ere ty = mT 3 one 
F 60 LATSCMULTIADD3 = *XOFOO ; ape 
0000000 000 61 LATSC_HOST_TIMER = 2 ; Host circuit timeout value (in SECs) 
0000000A 44 6 LATSC_MULTI_ TIMER = 10 ; Multicast message timer — ; 
00000050 0000 6 LATSC_CIR_TIMER = 80 ; Host preferred circuit timer (in MS) 
004(4B40 ia 64 LATSC_SHUTDELAY = 5*1000*1000 ; Delay time = 1/2 second 
0000000A 4 65 LATSC_KEEP_CSB = 10 ; Keep last 10 CSBs 
000 66 
0000 67 ; 
0000 re : Port driver ucb extension to class driver structures 
0000 576 
4 71 SDEFINI UCB GLOBAL 
00000134 72 . = UCBSC_TT_LENGTH 
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16-SEP=19 
Local Definitions “SEP=19 
134 273 ALIGN_LONG 
134 274 $SDEF UCBSLILT_CSBo «BLL 
138 «275 $DEF = UCBSLILT“DEADLINK .BLKL 1 
13¢ i SDEF  UCBSL“LT“INPBUF .BiKL 1 
140 277 SDEF §-UCBSBILT“REMID .BLKB 1 
141 28 SDEF  UCBSBILT“LOCID -B8LKB 1 
14 79 SDEF UCBSB-LT_DATAW -BLKB 
14 80 SVIELD UCB,07<- 
14 1 <LT_DATA,1,M>= 
14 Hf <LT_FLOW,1,M>= 
014 <LTZABORT, 1 ,M>- 
ih 
14 : SDEF — UCBSB_LT_LATSTS .BLKB 1 
0144 287 $VIELD UCB,07<- 
0144 288 <LT_HANGUP, 1, M>= 
0144 89 <LT_DEAD,1,M>=- 
0144 290 <LTZOVFLOW, 1,M>= 
0144 291 <LT“BOUND, 1 ,M>= 
0144 3¢ <LTIINPUT,.1,M>= 
0144 29 > 
0144 29% 
0144 295 SDE UCBSB_LT_STATE .BLKB 1 
0145 296 $EQU UCBSCILTTSTATE_START 1 
0145 297 $EQU UCBSCILT“STATE-RUN é 
0145 298 $EQU UCBSC“LT“STATE-STOP 
0143 99 SEQU UCBSCILTZSTATE-KILL i 
0145 301 SDEF | UCBSB_LT_REASON .BLKB 1 
0146 0¢ SDEF  UCBSB"LT“TCRED .BLKB 1 
0147 303 SDEF | UCBSBILT“XCRED .BLKB 1 
0148 304 SDEF | UCBSBILTRCRED .BLKB 1 
0149 305 $DEF  UCBSBILT“SLOTSZ .BLKB 1 
014A 306 SDEF  UCBSBILTMAXC .BLKB 1 
0148 307 SDEF  UCBSBILT“CURC <8 1 
014C 308 SDEF  UCBSBILT~CBUF 
019¢ 309 $DEF  UCBSB-LT“EBUF 
019C 310 SDEF  UCBSC~LT~LENGTH 
019¢ «= 311 SDEFERD OCB 


4 
4 


; 


1 
1 
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; align to longword boundary 

CSB address 

Link for dead ucbs 

Pointer to LAT type ahead buffer 
Remote slot index number 

Local slot index number 

; Data waiting flags 


3* Output data waitin 
3* Send current flow control values 
:* Send abort request 


Page 


; Status for local terminal connection 


3* We are hangin up the slot 

3;* We have Linked the UCB on deadlist 
:* We had an overflow on input (XOFF) 
i* Terminal is bound, don't delete UCB 
;* Input stream in progress 


; Slot state 

3* State is starting 

3* State is running 

3* State is stopping (send stop slot) 
7* Kill UCB immediately 


; Reason for eteqesng slot 
; Available credits for this slot 
; Credits extended to concentrator 
; Credits to be returned to concentrator 
; Slot size (negotiated) 
; Size of UCB buffering 
urrent character count 


*BLKB : ¢ 
.BLKB LATSC_UCB_BUFSIZ ; Startio data buffer 


3 Startio data buffer end 
3; Length of block 


7 
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aan 


Circuit state block 


For each concentrator, one virtual circuit is maintained. 
Protocol state is maintained in circuit state blocks. 

The CSB addresses are stored in a vector starting 

at CSB_TABLE. 


Te 
tion 
13 
14 
12 
i 
i 
1 
90000006 0 SDEFINI CSB — , 
$0000008 6 5 “BLKL 1 
0008 § SDEF CSB_W_SIZE -BLK 1 ; Size of this block in bytes 
A SDEF CSB_B_TYPE -BLK 1 3 Vype of block 
008 8 SDEF CSB_B_STATE -BLK 1 ; Virtual circuit state: 
00C 9 SEQU CSB_C_STATE_HALT 0 :* Circuit halted state 
000C 0 SEQU CSB_C_STATE_START 1 :* Circuit starting state 
4 ) SEQU CSB_C_STATE_RUN 2 :* Circuit running state 
4445 i : Counter area - must follow standard block header! 
000¢ . Bs ASSUME GHBS$T_CSBCTR EQ . 
405 $$ SDEF CSB_Z_LCB -BLKB LCB_C_LENGTH ; Circuit block counter area 
oore $ : Server name area - must immediately follow counter area 
OO1C 340 $pEF  CSB_B_SERVER  .BLKB 1 ; Length of server name 
001D 41 SDEF CSB_T_SERVER -BLKB GHBSK_NAMELEN ; Server name field 
onse 4g SDEF CSB_B_REFC -BLKB 1 ; Number of UCBs attached to this CSB 
Bose 34 : Destination Ethernet address - must immediately follow server name area 
93 $$ $pEF CSB_Z_DST -BLKW 3 ; Concentrator physical address 
0034 48 S$DEF CSB_Q_XBUFQ -BLKQ 1 ; Current transmit buffer queue 
003c 49 SDEF CSB_Q_XWAITQ -BLKQ 1 ; Transmit buffers waiting queue 
0044 50 S$DEF CSB_L_XCXB .BLKL LATSC_XMT_BUFFERS ; Transmit CXBs in progress 
004C 51 SDEF CSB_L_STOPREASON .BLKL 1 ; Address of the stop reason block 
O33 26 SDEF CSB_W TIMEOUT .BLKW 1 :; Timeout cell for C 
005 53 SDEF CSB_W_XMTTMO BLKW 1 ; Timeout count for retransmit 
0054 54 SDEF CSB_W_PROGRESS .BLKW 1 ; Progress counter 
0056 55 SDEF CSB_W_PROGSEQ .BLKW 1 ; Transmit error control for progress 
8836 2$ SDEF CSB_B_XMTBSY -BLKB 1 ; Transmit busy and count of waiters 
5 SDEF CSB_B_XMTCNT -BLKB 1 ; Count of buffers to transmit 
005A 38 SDEF  CSBTB7XCXB_INX .BLKB 1 > XCXB index 
Bae aR SDEF CSB-B- SPARE -BLKB 1 3 SPARE 
008 o 3; Start of circuit header as it appears in transmitted messages 
Opec $8 $DEF CSB_T_CIRCHDR ; Lat circuit header 
005C 64 SDEF CSB_B_FLAG -BLKB 1 ; Message flags byte 
05D 65 SDEF CSB_B_NUM_SLOTS .BLKB 1 ; Number of slots : 
OSE $6 $DEF CSB-W-REMTD ; Remote virtual circuit id 
5E 67 SDEF CSB_B_REMIDN -BLKB 1 ; Remote virtual circuit id number 
5F o8 SDEF CSB_B_REMIDS -BLKB 1 ; Remote virtual circuit id sequence 
60 69 SDEF CSB W_LOCID ; Local virtual circuit id 
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DEF CSB_B_LOCIDN -BLKB 1 ; Local virtual circuit id number 

DEF CSB_B_LOCIDS -BLKB 1 ; Local virtual circuit id sequence 

DEF CSB_W_XSEQ ; Transmiter error control 

DEF CSB_B_XSEQ -BLKB 1 ; Sequence number being transmitted 

DEF CSB_B_XACK -BLKB 1 : oreess sequence number received 

SEQU CSB_S_CIRCHDR <.=CSB_T_CIRCHDR> ; Size of header 


Sequence number to receive 

Highest sequence number acknowledged 
Timeout reset value 

CSB table index 

Maximum number of slots (negotiated) 
WL Maximum message size (negotiated) 
~CFIXCENGTH 3 Length of fixed block 


UCB List area (size = 4*min(lat$c_max_slots,server_slot_count) ) 
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B7R 1 
8 1 
“W7T » 4 
B_INX -BLKB 1 
BoM 1 
W"4 1 
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ALIGN_LONG i; align to longword boundary 
CSB_L_UCBLST 


SDEFEND CSB 
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70 $ 
$ 
$ 
$ 
$ 
; End of circuit header 
CSB_W_RSEQ ; Sequence number to receive 
CSB EQ 
CSB 
CSB 
CSB 
CSB 
CSB 
CSB 
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95 
39 3+ 
4 : Terminal overflow input buffer definitions 
3 : The terminal overflow buffer is — used when a call is made to 
400 ; the XOFF routine to stop the input flow. The overflow buffer is 
401 ; allocated and the rest of the input data is copied to the overflow 
4 ¢ ; buffer. When we are resumed at XON, the data from the input overflow 
ret ; buffer is dumped into the class driver. 
if i- 
209 
rts SDEFINI INB GLOBAL 
409 S$DEF INB_W_BOFF -BLKW 1 ; Offset to start of data 
410 $DEF INB_W_BCNT -BLKW 1 ; Count of data remaining 
411 SDEF INB_L_SPARE ~—BLKL 1 ; Spare longword 
tig SDEF INB_W_SIZE BLKwW 1 ; Size of structure 
4135 S$DEF INB_B_TYPE -BLKB 1 ; Type of structure 
414 SDEF INB_B_SPARE -BLKB 1 ; Spare byte 
a SDEF INB_C_LENGTH ; Size of structure header 
41 
41 


5 
6 
f SDEFEND INB 
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Receive buffer offsets and bit definitions 


The format of receive and transmit buffers is identical for fields 
Starting with and following the destination address field. Ease of 
implemenatation dictates that the offsets be defined relative to 
the start of the buffer. 


These are the offsets into the architecturally defined portion of 
the receive buffer itself. 


SDEFINI RCV GLOBAL 


RCV_T_DATA ; Start of data is right here 
RCV_B_FLAG -BLKB 1 ; Flags byte and message type 


; Flag bits: 
_VIELD FLAG,0. <= 


3* Flags byte bit definitions recv & xmit 
RRF,1,M>,= ;* Response requested fiag 
<MASTER 1,M>,- ;* Remote station always sets this flag 
<MTYPE ,6,4> = 3* Message type bits 


: Message types: 
$EQU  MTYP_C_RUN 


0 3* Run message 
SEQU MTYP_C_START 1 ;* Start message 
SEQU = MTYP_C_HALT 2 7* Halt ntssege 
SEQU MTYP_C_CONF 10 :* Configuration message 


SDEF RCV_B_NUM_SLOTS .BLKB 1 ; Number of slots in buffer 
SDEF RCV_W_DSTID ; Destination virtual circuit id 
SDEF RCV_B_OSTION ~BLKB 1 ; Destination virtual circuit id number 
SDEF RCV_B_DSTIDS -BLKB 1 ; Destination virtual circuit id seq 
SDEF RCV_W_SRCID ; Source virtual circuit i 
SDEF RCV_B_SRCION -BLKB 1 ; Source virtual circuit id number 
SDEF RCV_B_SRCIDS -BLKB 1 ; Source virtual circuit id 

3 sequence number 
$DEF RCV_B_SEQ -BLKB 1 ; Buffer sequence number 
SDEF RCV_B_ACK -BLK 1 ; Sequence number acknowledgement 
SDEF RCV_T_MDATA ; Start of type dependent data 


SDEFEND RCV 
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00 469 | 
000 470; 
: 14 ; Define START message offsets (used for both xmits and recvs) 
0 258 SDEFINI STRT GLOBAL 
000 474 $DEF STRT_W_MSGSIZ .BLKW 1 : Data Link frame size 
000 475 SDEF STRT_B_PVER BLK 1 : Circuit gretecet version 
000 476 SDEF STRT_B_PECO -BLKB 1 ; Circuit Eng. change order level 
0004 477 SDEF STRT_B_MAXSLOTS .BLK 1 ; Maximum simultaneous slots : 
0005 478 S$DEF STRT_B_OL_BFRS .BLKB 1 ; Number of extra rcv bfrs in server 
R008 479 $DEF STRT_B_CIR_TIMR .BLK 1 ; Local circuit timer in milliseconds 
000 ret SDEF STRT_B_KPA_TIMR .BiKB 1 ; Local keep alive timer in seconds 
0008 481 SDEF § STRT“WTFAC"NUM .BLKW 1 : Facility number 
OOOA te $DEF STRT_W_PROD_TYP .BLKW 1 ; Product type code 
$5 re SDEF STRT_C_LENGTH ; Length of fixed portion of message 
4445 rt ; Start of variable length parameters 
000C 487 $pEF STRT_B_VAR ; Start of variable portion of start message 
OOOC 488 SDEF STRT_B_NODE_LEN .BLKB ; Destination node name Length 
000D 489 SDEF STRT_T_ -BLKB GHBSK_NAMELEN ; Destination node name text 
001D 490 SDEF STRT_B_SYS_LEN .BLKB ; Source node name Length 
OO1E 491 SDEF STRT_T_S ~BLKB GHBSK_NAMELEN ; Source node name text 
002E rh SDEF STRT_B_LID_LEN .BLKB ; Source node descriptor length 
OO02F 493 SDEF STRT_T_ -BLKB GHBSK_IDLEN ; Source node descriptor text 
OO6F 494 SDEF STRT_B_LOC_LEN .BLKB ; Source location length | 
0070 495 SDEF STRT_T_ -BLKB LATSC_LOC_LEN ; Source location text 
00B0 496 S$DEF STRT_B_PARAM -BLKB ; Parameter code : 
00B1 497 S$EQU STRT_C_VAR_LEN <.=STRT_B_VAR> ; Length of variable portion of start 
00B1 498 3 =message 
00B1 499 SDEFEND STRT 
0000 500 | 
0000 501 ; : | 
0000 206 : Define STOP message offsets 
0000 503 ; 
0000 504 SDEFINI STOP GLOBAL hoo se cpt 
0000 505 SDEF STOP_B_RCODE -BLKB ; Circuit disconnect reason 
0001 506 SDEF STOP_B_RLEN -BLKB ; Reason Length in bytes 
0002 507 SDEF STOP_T_REAS ; Reason ASCII text 
0002 508 SDEFEND STOP 
0000 509 
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11 
12 ;¢ 
$8 18 ; Transmit buffer offsets and bit definitions 
36 15; The buffer header is defined to be the same as that used by 
8? 18 ; the Ethernet aatalink drivers. 
$00 18 
444 3 SDEFINI CXB GLOBAL ; Transmit complex buffer 
44 1 3 Define the transmit/receive offsets in the CXB 
0000001¢ $600 2 g ‘= CXBSL_END_ACTION 
pote é : SDEF CRBSL-T_ENDADR .BLKL 1 ; End address of data to transmit 
0000000C 0020 526 . = CXBS$W_LENGTH 
000c 527 ASSUME CXBSW_OFFSET EQ CXBSW_LENGTH+2 
4 2 8 SDEF CXBSL_T_CSB ; CSB address 
00000014 O000C 530 . = CXBSL_IRP 
Bote 23! SDEF CRBSL_T_SAVE -BLKL 1 ; BOFF & BCNT save area 
0018 235 SDEFEND CXB 
0000 534 
0000 535; 
0000 536 ; Start of architecturally defined offsets 
0000 537 ; 
0000 538 SDEFINI XMT GLOBAL 
0000 539 
QO00003A 0000 540 . = CXBSC_HEADER = <6+6+2> 
ts 24) SDEF XAT_G_DST -BLKW 3 ; Destination address 
00000048 0040 278 . = CXBSC_HEADER 
0048 544 S$DEF XAT_T_DATA ; Start of transmitted data 
0048 545 SDEF XMT_B_FLAG -BLKB 1 ; Flags byte and message type 
0049 546 
0049 547 ; 
0049 548 ; Run message format: 
0049 549; 
0049 550 $DEF == XMT_B_NUM SLOTS .BLKB 1 ; Number of slots in buffer | 
004A 551 SDEF XMT_W_DSTID ; Destination virtual circuit id 
004A 226 SDEF XMT_B_OSTION -BLKB 1 ; Destination virtual circuit id number 
0048 553 SDEF ent peer io -BLKB 1 ; Destination virtual circuit id seq 
004C 22 SDEF XMT_W_SRCID ; Source virtual circuit id 
004C 55 SDEF XMT_B_SRCION -BLKB 1 ; Source virtual circuit id number 
004D 556 SDEF XMT_B_SRCIDS -BLKB 1 ; Source virtual circuit id 
Bote 22f 3; sequence number 
004E 559 SDEF XMT_B_SEQ -BLKB 1 ; Buffer sequence number 
OO4F 560 SDEF XMT_B_ACK -BLKB 1 ; Sequence number acknowledgement 
0050 561 SDEF XMT_T_MDATA ; Start of RUN message data 
0080868 ; 
2038 64 t Multicast (CONFIGURATIGN) message format: 
00000049 630 66 ‘ . = XMT_B_FLAG#1 ci hoagie 
0049 67 SDEF XMT_B_MC_CIR_TIMER -BLKB 1 ; Circuit timer 
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OO4A 68 S$DEF XMT_B_MC_HI_VER -BLKB 1 ; Highest supported protocol version | 
8 48 8 SDEF XMT_B_MC_LO VER BLKB 1 ; Lowest supported protocol version | 
04C Q SDEF XMT_B_MC_CUR_VER -BLKB 1 i version of this message | 
004D 27) SDEF XMT_B_MC_CUR_ECO -BLKB 1 3; eco of this message 
Q04E ie $DEF XMT"B_MC_INCARN -BLKB 1 ; Message incarna*ion 
Beh 20? SDEF XMT_B_MC_CHG_FLAG -BLKB 1 ; Changed fields in this msg 
0050 575 VIELD XMT_CHFLG,0,<- 
005 576 Z2GROUP,1,M>>- 3* NODE ous codes changed 
005 577 <NDESC,1,M>,= :* NODE descriptor changed 
005 78 <SVCNAM,1,M>,= :* Service name/number changed 
28 79 <RATE,1,M>,= i* Service ratings changed 
005 80 <SDESC,{1,M>,- 3* Service classes changed 
iF 94 581 <CLASS,1,M>,- 3* peryice classes changed 
005 26 <,1>,° ;* RESERVED 
0050 583 <OTHER, 1,">,~ :* One of the OTHER fields changed | 
0338 23? SEQU XMT_CHFLG_M_ALL <*XFF> 7* ALL codes changed 
$028 587 S$DEF XMT_W_MC_MSG_ SIZ -BLKW 1 : Maximum frame size 
Opes a8 $EQU XMT_C"MC_LENGTH <.-XMT_T_DATA> ; Size of fixed sort of multicast me) 
$083 590 SDEF XMT_B_MC_SET ;_ Start of LATCP set portion of multicast msg 
B23¢ 591 $DEF XMT_B_MC_MULTIMR -BLKB 1 ; Multicast message timer | 
005 236 SDEF XMT_B_MC_STATUS -BLKB 1 : ee status | 
0054 5935 SDEF MT_B_MC_GRP_LEN -BLKB 1 ber of group codes 
0055 594 $DEF = XMT-~T"MC~GROOP -BLKB —_LATSC _GRP_ LEN Group code tield 
0075 595 SDEF XMT_B_MC_NODE_LEN -BLKB 1 de name length 
0076 596 SDEF XMT_T_MC_ -BLKB GHBSK _NAMELEN ; NODE name 
ite 44 SDEF XMT_B_MC_NUM_SVCS -BLKB 1 ; Number of services | 
0087 599 SDEF § XMT_B_MC_RATE BLKB 1 ; Service rating | 
0088 600 SDEF XMT_B_MC -NAne LEN -BLKB 1 Se rvice name length 
0089 601 SDEF ant ~T_MC_NAME~ -BLKB GHBSK -NAMELEN ; Service name 
0099 602 SDEF T"B_MC_ID_LEN -BLKB 1 Len ngth of Identification field 
009A 603 SDEF XAT “T_MC_1D™ -BLKB _GHBSK IDLEN Identification field 
BODA eRe SEQU XMT_C_MC_SVC_SIZE <.-XMT_B_MC_RATE> ; Size of each service field | 
; 
0908 606 SDEF XMT_T_MC_MORE_SVC -BLKB <<LATSC_MAX_SERVICES-1>*XMT_C_MC_SVC_SIZE> 
0279 608 SDEF § XMT_B_MC_SVC_LEN -BLKB 1 umber of service classes | 
027A 609 SDEF XMT_B_MC_SVC~ ue LATSC_ sve TEN’ Service classes 
0282 610 SEQU XMT"C°MC’TOTAL <.-XMT :“Length of total message 
0283 11 ASSOME MT_C_MC_TOTAL “Le TATSC _MAX_MSGSIZ | 
bs 8s 61 $EQU XMT_C_HDRLEN <XMT_T_MDATA = XMT . P a apt 
028 614 “ar 7. header 
028¢ 615 $EQU XMT_C_MAXDATA <LATSC_MAX _MSGSI? - XAT_C_HDRLEN> | 
028 616 Data in slots 
0o8e 617 $EQU XMT_C_MAXLEN  <LATSC_MAX _mscsii + XMT_T_DATAD 
028 618 ; Total”size of a buffer 
0282 619 SDEFEND XMT 
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00 621 ; 
§ ° ¢ ; Buffer slot offsets 
8 624 ; Each slot is formatted identically in both 
44 ? 22 transmit and receive buffers as defined below. 
$000 6 5 
444 628 SDEFINI SLT GLOBAL 
000 629 
0000 630 SDEF SLT_T_START ; Start of slot 
0000 631 SDEF  SLT“B"DSTID -BLKB 1 : Destination slot ID 
B00) 6 4 SDEF SLT_B_SRCID -BLKB 1 ; Source slot ID 
0 635 S$DEF SLT_B_COUNT -BLKB 1 ; Character count in slot 
000 634 SDEF SLT_B_REAS ; Stop/reject slot reason (low nibble) 
000 635 SDEF SLT_B_CRED ; Credits extended (low order nibble) 
0003 636 SDEF SLT B_TYPE -BLKB 1 ; Slot type (high order nibble) 
0004 637 ; STOP/REJECT reason codes: 
0004 638 $E€QU SLT_C_USD 1 ; * User requested disconnect 
0004 639 S$EQU  SLT_C_SYS ¢ 3; * System shutdown 
0004 640 $EQU  SLT_C_INVSLOT : * Invalid slot received 5 
0004 641 SEQU  SLT_C_INVSVC 4 ; * Invalid service class received 
0004 a6 SEQU SLT_C_RESOURCE 5 ; * Insufficient resources 
0004 64 ; STof type codes: 
| 0004 644 $SEQU SLT_C_DA SLOT <*x00> : * DATAA slot 
| 0004 645 $EQU SLTIC"STR_SLOT <*x09> ; * START slot 
0004 646 $EQU SLTC“DB SLOT <*XOA> : * DATAB slot 
0004 647 $EQ SLT-C_ATT_SLOT <*X0B> ; * ATTENTION slot 
0004 648 S$EQU SLT_C_REJ_SLOT <*xO0C> ; * REJECT slot 
| 0004 649 $EQU SLT“C“STP™SLOT <*X0D> : * STOP slot 
0004 650 SDEF SLT_T_DAT ; Start of slot data 
0004 651 
0004 $36 3 : 
0004 653 ; Start slot data definitions 
0004 654; 
00000004 0004 655 . = SLT_T_DATA 
0004 656 SDEF SCT_B_SVCC -BLKB 1 ; Service class ; 
0005 657 SEQU SLT_C_SVC_INTT ; * Interactive Terminals — 
0005 658 SDEF SLT-B_AT_SLTSIZ .BLKB 1 ; Maximum Length of attention slot 
0006 659 SDEF SLT“B_DT-SLTSIZ .BLKB 1 ; Maximum Length of Data slot 
| 0007 660 SDEF SLT-B_DST_NAMLEN .BLKB 1 ;_ Length of destination slot name 
| 0008 661 SDEF | SLT“T“DST“NAME .BLKB GHBSK_NAMELEN 
0018 666 SDEF SLT_B_SRC_NAMLEN .BLKB 1 ; Length of source slot name 
0019 663 SDEF SLT-B-SRC"NAME .BLKB _ GHBSK_NAMELEN 
8858 664 $EQU SLT-S"START SLOT <.-SLT_T_DATA> ; Length of Start slot 
| 029 665 SDEF SLT_B_PARAM ; Start of parameter area : 
0029 666 S$EQU  SLT_C_START_FLAG 1 3* Start slot parameter flag is code 1 
0029 667 -VIELB SLT“FLAG,0,<- 
0029 668 <REMOTE, 1 ,M>,~ ;* Remote Line 
bose 669 <LOGIN, 1,M>,= 3* Disable auto-login 
0029 670 <BIND,1,>,- 3* Terminal UCB is bound to server 
0029 671 > 
0029 of¢ 
9 673; bm te 
6 4 ore ; DATA_B slot data definitions 
00000004 0029 676 . = SLT_T_DATA 
004 677 SDEF SCT_B_DB_CONTROL -BLKB 1 ; DATA_B slot control flag 
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| 
0 678 _VIELD SLT DB,0,<- 
0 67 <IFENA,1,M>,= ; Turn on flow control of keyboard 
8 680 <IFDIS,1,M>,- ; Turn off flow control of keyb sd 
681 <OFENA,1,M>,= ; Output flow on | 
$ 2 6 ¢ <OFDIS,1,M>,- ; Output flow off 
bee ? Z SEREAK, 1. A>." ; Break condition detected (recy aad 
BR02 685 SDEF SLT_B_OB_OFOF .BLKB 1 ; Output-off flow char (from keyboar | 
B08 6 $ SDEF SLT_B_DB_OFON .BLKB 1 ; Output-on flow char (from keyboard | 
0007 687 SDEF  SLIZBIOBTIFOF <BLKB 1 : Input-off flow character (from hos. 
0008 688 SDEF  SLT“BDB"IFON .BLKB 1 : Inputcon flow character (from host | 
9008 689 $EQU SLT“S"DB"LEN <.-SLT_T_DATA> ; Length of DATA_B dat 
009 690 SEQU SLT“S"DBTSLOT <.-SLTIT“START> ; Length of DATA-B stot | 
0009 691 
0009 O36 3 . 
0009 693 ; ATTention slot data definitions | 
0009 694 ; 
00000004 0009 695 ; = SLT_T_DATA 
00C4 696 SDEF Sct B_ATT CONTRO -BLKB 1 ; ATTENTION slot control flag 
0005 697 -VIELB SCT_ATT 
0005 698 <,55,° ; RESERVED 
Bebe $99 <hBORT, 1,M>,- ; Abort (flush pipe) 
0005 701 S$EQU  SLT_S_ att LEN <.=SLT_T_DATA> ; Length of Attention data 
0005 re $EQU SLT_S"ATT-SLOT <.=SLT_T_START> 3; Length of Attention slot 
0005 70 | 
0005 704; 
0005 705 ; STOP slot data definitions 
0005 706; 
00000004 0005 707 . = SLT_T_DATA 
0004 708 $pEF SCT_B_STP_RLEN .BLKB 7 ; STOP slot reason Length 
0005 709 $EQuU SCT “S-STP_LEN <.=SLT_T_DATA> ; Length of fixed STOP slot data 
0005 710 $EQuU of “S_STP_ at <.-SLT_T_START> 3 Length of fixed STOP slot 
0005 711 SDEF TTISTP_REAS ; STOP slot reason (variable) 
0005 ay 
0005 713; aad 
0005 714 ; REJect slot data definitions 
0005 715; 
00000004 0005 716. ot T_DATA 
0004 717 $DE “SCT_B_LREJ_RLEN .BLKB 1 ; REJ slot reason Length 
0005 718 SFOU SLT-S"REJ-LEN <.=-SLT_T_DATA> : Length of fixed REJ pe data 
0005 719 $EQU SLT_S"REJ“SLOT <.-SLT~T~START> ; Length of fixed REJ slot 
ppbe so SDEF SLT-T_REJ_REAS ; REJ slot reason (variable) | 
0005 4S) SDEFEND SLT 
| 
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00 724; | 
§ 725 ; Local macros 
| 7 § : 
| 6 : MACRO INC_CTR BASE, TYPE=L, 2L | 
000 7 g INC * TYPE BASE 3: Increment counter | 
44 730 BNEQ L ; Br if no overflow 
4 f DEC' TYPE BASE 3; Else, latch at maximum | 
0000 733 .END INC_CTR 
itd 734 7 
9900 735 .MACRO ADD_CTR BASE1, BASE2, TYPE=L, ?L 
00 736 ADD TYPE, BASE1,BASE ; Add counters 
0000 ay BCC ; Br if no overflow 
| 0000 738 MNEG' TYPE #1,BASE2 : Else, latch at maximum 
0000 739 L: 
9000 740 -END = ADD_CTR 
| 0000 pag «MACRO S$DISPATCH, INDX, VECTOR, TYPE=W,NMODE=S*#, 2MN, 2MX, 2S, 2SS, 222 
| 0000 743 SS: 
0000 744 
0000 745 .MACRO sosPi ,$DSP1 
0000 746 STRP $DSP1_2,$DSP1_1 | 
0000 747 $DSP2~ $DSP1~2 
0000 748 .ENDR 
0000 749 .ENDM $DSP1 
0000 750 
0000 751 .MACRO s0sP2, g9SP2 1,$DSP2_2 
0000 138 1_AN> #2 +5 
0000 75 “YOR” Peels P2 25S | 
0000 754 .ENDM $DSP2 
0000 755 
0000 756 
0000 757 .MACRO $BND1 ,$BND1 -$BND1 2 ,$BND1_3 
0000 758 $BND2 SEND} BND1_2 
0000 759 .ENDM  $BND1 
0000 760 
0000 761 -MACRO $BND2,$BND2_1,$BND2_2 | 
0000 762 LIF $BNB2_1 BADD Ps .=$BND2_2 
0000 763 .ENDM 
0000 764 
0000 765 -MACRO $BND  $BND_1 + SBND 5° 
0000 766 .IRP = $BND73,.< 52> | 
tit 767 S$BNDT “SEND $BND_3 
0 768 .ENDR 
0000 769 .ENDM  $BND 
0000 770 
0000 771 .=0 
0000 ak 
9000 77 $BND GT, <VECTOR> | 
000 774 ™ 
0000 775 $BND _—LT, <VECTOR> 
000 ore MN 
900 77 »=SS | 
178 | 
| 0000 779 CASE'TYPE INDX, #<MN=ZZ> , NMODE * <MX=MN> 
| 0000 780 S: 
| 
! 
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REPT MX=MN+1 
«WORD <MX=MN>#2 + 2 
NDR 


=S$ 

$DSP1 <<VECTOR>> 

e=<MX-MND#2 + S + 2 
~ENDM SDISPATCH 


-MACRO SETBIT BIT, BASE, ?L 3; Set specified bit 
‘ BBSS BIT, BASE, L 
ENDM 
-MACRO CLRBIT BIT, BASE, ?L ; Clear specified bit 
" BBCC BIT, BASE, L 
: ENDM 
-MACRO BREAK 
JSB G* INISBRK 
~ENDM 
-MACRO DEBUG 


TSTL ar- 
-ENDM DEBUG 
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ver Prologue Table -SEP-1984 7:22 CLAT.SRCILTDRIVER.MAR;1 (18). 
| 2090 F -SBTTL Driver Prologue Table 
| 700308 i -PSECT $$$105_PROLOGUE 
' 1 3 
| 00 18 ; Driver prologue table: 
ah 18 : 
0 00 0 
00 1 LTSDPT:: ; Driver start 
48 : ¢ “DPTAB oe ; Driver orologue table 
00 END=LTSEND,=- Addres. * end of module 
B888 H 4 UCBSIZE=UCBSC JLT _LENGTH,=; Size or each ucb of port driver 
00 5 ADAPTER=NULL ,= ; Adapter type 
0000 826 NAME=LTDRIVER, = : Name of drive 
0000 827 VECTOR=LT$VECTOR ; Port driver cocker table 
0038 828 pet _STORE INIT 
0038 829 DPT"STORE UCB,UCB$B_FIPL,B,LATSC_IPL ; Fork ipl 
003C 830 DPT“STORE UCB,UCBS$L~DEVCHAR,L, <=: therectertetics 
003¢ 831 DEVSM_REC!- ; 
003¢ 832 DEVSM~AVL i - ; 
003C = 83 DEV$M~IDVi- ; 
003C 834 DEV$M_~ODVi- ; 
003C 835 DEVSM~TRM!- : 
003¢ 836 DEV$M~CCL> 
0043 837 DPT_STORE UCB,UCB$L DEVCHAR2, L,<- 
0043 838 DEVSM_NNM> Pretts name with <node$> 
004A 839 DPT_STORE UCB,UCB$B_DEVCLASS,B,DC$_TERM; 
Q04E 840 DPT-STORE UCB-UCBSB-TT_DETYPE.8, TTS. UNKNOWN ; , 
0052 841 DPT_STORE UCB,UCB$W_TT_DESIZE,aW,TTY$GwW_DEFBUF ; Buiter size 
0059 BAe “STORE UCB,UCBSL-TT—DECHAR. aL, TTYSGL_DEFCHAR ; Default characters 
0060 84 DPT“STORE UCB,UCBSL_TT-DECHA1,@L,TTYSGL DEF CHAR2: Default characters 
0067 844 “STORE UCB,UCBSW-TT-DESPEE.a@8,TTY$SGB-DEFSPEED: Default speed 
006E 845 DPT“STORE UCB,UCBS$W_TT-DESPEE+1,aB, TTY SPEED; Default rspeed 
0075 846 DPT-STORE UCB,UCB$B_TT-DEPARI,a@B,TTY$GB_PARITY ; Default parity 
007C 847 DPT-STORE UCB,UCBS$B_TT-PARITY,@B, TTY$GB_-PARITY : Default parity 
007C 848 DPT-STORE UCB,UCB$B_DEVTYPE,B,11$_UNKNOON : Type 
0080 849 DPT“STORE UCB.UCB$W_DE VBUFSI?.aw, TTYSGu. FBUF : Buffer size 
0087 850 DPT-STORE UCB,UCBSL_DEVDEPEND.@L.T#YS$GL_DEFCHAR ; Default characters 
OO8E 851 DPT_STORE UCB,UCBSL_TT_DEVDP1,aL,TTY$GL_DEFCHAR2; Default characters 
0095 85¢ DPT"STORE UCB.UCB$W_TT-SPEED, a8, 1TY$GB_DEFSPEED : Default speed 
0 c 85 DPT"STORE UCB,.UCB$W_TT-SPEED+1,@B,TTY$GB_RSPEED : Default rspeed 
0 854 DPT“STORE UCB,UCB$B_DIPL,B,LATS$C IPL. ; Device ipl 
O0A7 855 DPT-STORE UCB.UCB$L_TT_WFLINK,L,O > Zero write queue. 
8 3 B26 DPT_STORE JER UEBST TT Reape ct 8 : Zero write queue. 
5 DPT_STORE UCB,UCBSL_TT_RTIMOU,L, : Zero read timed out 
00BC 858 DPT“STORE UCB,UCBSW_TT"PRTCTL,W,TTYSM_PC_NOTIME ; Disable all timers 
0OBC 859 DPT“STORE ORB, ORB$B-FLAGS,B,- ; Default flags 
3 C 60 ORB Bor 16> ; SOGW word protection 
0¢9 61 DPT_STORE ORB,ORB$W_PROT ay. TTY$GW_PROT ; Default protection 
00¢ 6¢ DPT-STORE ORB, ORBSL OWNER. TTY$GC_OWNUIC : Default owner uic 
99¢ 863 DPT“STORE DDB. Opes “DDT .D Préppt 
OD 65 DPT_STORE REINIT 
0D 66 DPT“STORE CRB, CRBSL_INTD+VECSL_INITIAL,D,LTSCTRL_INIT 7 Controller init 
| 008 86 DPT-STORE CRB,CRBSL_INTD+VECSL_UNITINIT, st LTSUNIT_INIT’; Unit init 
ODD 868 DPT“STORE END 
| 000 869 
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4 -SBTTL Local Storage 
1 
0000 $ ¢ -PSECT $$$115_DRIVER,LONG 
038 88S ; Local 
; Local storage 
0 8 ; 
00 
0 88 ;+ 
8 +4 s Circuit State Block table 
0 91 ; This table is indexed by RCV_B_DSTIDN in received buffers. A 
03 4 ; concentrator always uses the same value when refering to a 
03 93; host for a second time. The RCV_B_DSTINS byte is a check byte 
Boas age ; which helps prevent random or outdated references to CSBs. 
0038 536 = 
0038 89 
0038 898 «ALIGN LONG 
0038 899 
oo 900 GHB_L_CSBTABLE: 
00000088 003 901 -BLKL LATSC_MAX_CSBS ; CSB address table 
0088 902 GHB_B_LOC_CCHK: ; Table of local 
00000009 00B8 90 -BLKB LATSC_MAX_CSBS+1 3 circuit checks 
0009 904 
0009 905 
0009 906 ; ‘ 
0009 907 ; Timer queue element 
0009 908 ; ; — 
0009 909 ; Used to timeout CSB's that have had no activity. 
0009 910; 
0009 911 
0009 318 -ALIGN LONG 
O0DC 913 GHB_G_TQE: 
0000010C O0DC 914 -BLKB TQESC_LENGTH 
010c = 915 
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00000186 
00000187 
00000188 
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GHB_W_MC_SIZE: . 1 ; 9g 
GHB_T_MC_DATA: .BLKB XMT_C_MC_TOTAL+16 ; Name and ID storage + fudge factor 


Ne ee nn www fw fo lnlelelelolelolelolelelolelelelelolelelolaloleolelolelalelololo) 
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: Host counter block 


«ALIGN LONG 
GHB_AREA: 


«ALIGN LONG 


GHB_L_UCBO .BLKL 1 
GHB-L“DEADLINK: .BLKL 1 
GHB-L~FFI: <BLKL 1 
GHB“L“NULLCPU: <BLKL 1 
GHB“L“LASTCPU: .BLKL 1 
GHB-L“NULLSEC: .BLKL 1 
GHB-B-STATUS: .BLKB 1 
_VIELD GHB_STS,0,<- 
<MUCTI,1,M>,- 
<ACTIVE,1,M>,- 
<SHUT,1.M>,= 
<TOE,1,>,- 
GHB_B_INCARN: .BLKB 1 
GHB-B-OLD_CSBCNT: .BLKB 1 
GHB_B_RATE: -BLKB 1 


; Multicast data set by LATCP 


«ALIGN LONG 
BLKW 


ALIGN LONG 
GHB_Q_MULTIADD: .WORD LAT$C_MU 


“WORD  LAT$C“MU 
“WORD  LAT$C=MU 


GHB_W_MULTIMR: .BLKW 1 
GHBLMULTIBFR: .BLKL 1 


LTIADD1 
LT ee 
LTIADD 


: Data to control multicast buffer 
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; Communications area 
-BLKB GHBS$S_COMM_AREA 


CB zero address 
of dead UCBs 
block address 


U 
t 
nter to null CPU time 


T 

is 
Fl 
07 


; Value of Last null CPU sample 
; Value of Latt null CPU sample on secondary 
; Host status byte 


; Multicast buffer in use 
; LTDRIVER is active 

; Shutdown is in progress 
; Waiting for TQE to fire 


; Incarnation number for multicast message 
; Count of old CSBs on queue 
; Initial rating computed from memory size 


Size of name and ID strings 


; Multicast (Configuration) Message Destination Ethernet address 


LAT Multicast destination address 


Picks up next word also (garbage) 


; Timer for multicast transmits 
; Address of the multicast buffer 


: Host Multicast (Configuration) my fixed portion template 


(Fields are order-dependent and adjacent 

ASSUME XMT_B_FLAG EQ XMT_T_DATA 

ASSUME XMT_B_MC_CIR_ TIMER EQ XMT_B_FLAG+1 

ASSUME XMT"B"MC"HI_VER EQ XMT_B_MC_CIR_TIMER+1 
ASSUME XMT_B_MC_LO VER EQ XMT_B’MC"HI_VER+1 
ASSUME XMT"B-MC"CUR_VER EQ XMT_B_MC_LO_VER+1 


C 

COMAXTSLOTSIZ ; Attention slot size | 
| 
i 
| 


| 
M 1 
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yo 008 Local Storage ets er Eee: LEAT. SRCICTDRIVER MAR: 1 ‘ 3) v04 
| 
| bee 974 ASSUME XMT_B_MC_CUR_ECO EQ XMT_B_MC_CUR_VER+1 
E 975 ASSUME XMT"B"MC"INCARN EQ XMT_B_MC_CUR_ECO+1 
| E 376 ASSUME XMT"B"MC-CHG_FLAG EQ XMT"B-MC~INCARN+1 
E 97 ASSUME XMT_W_MC_MSG_SIZ EQ XMT_B_MC_CHG_FLAG+1 
| EO 978 ASSUME XMT“B-MC-SET EQ XMT~W-MC-MSG-SIZ+2 
8 EO 979 GHB_T_MC_MSG: ; Start Of mUlticast msg fixed data 
28 EQ 980 -BYTE MTYP_C_CONF@FLAG_V_MTYPE ; Mess type 
08 O3E1 981 ~BYTE <LATSC"CIR_TIMER?95/10 ; Host preferred Circuit timer 
05 0 ES 9 ¢ -BYTE LATS$C_AI_VER ; Highest LAT protocol version supported 
05 OQ3E 98 «BYTE LATS$C_LO_-VER ; Lowest LAT protocol version supported 
| 05 O3E4 984 -BYTE LATSC"CUR_VER ; Current LAT protocol version 
| 00 OE 989 -BYTE LATSCICURTECO ; Current LAT protocol ECO version 
0 eg 986 -BYTE ; Message incarnation (filled in Later) 
00 OSE 987 -BYTE 3 Change flags (filled in later) 
O5SDC O3E8 988 «WORD LATSC_MAX_MSGSIZ ; Maximum message size | 
O3EA 989 
O3SEA 990; 
| BaeA 44 ; Standard Start message (fixed portion) template 
O3EA 998 ASSUME STRT_W_MSGSIZ £0 0 
| O3EA 994 ASSUME STRT“BPVE EQ STRT_W_MSGSIZ+2 
O3EA 995 ASSUME STRT~B-PEC EQ STRI~B-PVER+1 | 
O3SEA 996 ASSUME STRT_B_MAXSLOTS EQ STRT_B_PECO+1 
O3EA 997 ASSUME STRT_B_DL_BFRS EQ STRT_B_MAXSLOTS+1 
O3EA 998 ASSUME STRT“B-CIR_TIMR EQ STRT~B-DL_BFRS+ 
O3EA 999 ASSUME STRTB-KPA-TIMR EQ STRT~B-CIR_TIMR+1 
O3EA 1000 ASSUME STRT“W-FAC-NUM EQ STRT~B_KPA"TIMR+1 | 
O3EA 1001 ASSUME STRT-W_PROB_TYP EQ STRT_W-FAC_NUM+2 
QOOOO3EC O3EA Ie GHB_W_STRT_LEN: .BLK 1 ; Cength of start message 
O3EC 1003 GHB_T_STRT_MSG ; ; Start of start message fixed data 
O5DC O35EC 1004 ~WORD LATSC_MAX_MSGSIZ ; Maximum Ethernet frame size | 
05 O3EE 1005 -BYTE LATSC_CUR_VER ; Current LAT protocol version 
00 O3EF 1006 -BYTE LATS$C_CUR- ; Current LAT ECO version | 
40 O03FO 1007 -BYTE LATSCAAK_SLOTS ; Maximum number of Slots per circuit 
06 bee 1008 «BYTE ; Number of additional buffers (remote) 
000003F4 O3F2 1009 -BLKB 2 3; Remote parameters only 
0000 O3F4 1010 -WORD 0 ; Facility number (not yet implemented) 
0003 o3r6 191) «WORD LATSC_VMS 3; Product type code 
03F8 1018 ASSUME STRT_B_VAR  £Q STRT_W_PROD_TYP+42 
0000049D a7es oie GHB_T_STRT_VAR: .BLKB ~ STRT_C_VAR_LEN ~; Variable portion of start message | 
noes 1316 3; Standard Start slot template 
49D 1018 GHB_T_STRT_SLOT: ; Start of the start slot data 
01 049D 101 -BYTE SLT_C_SVC_INTT ; Service class 
FF Q49E 1020 -BYTE LATS 
FF Bene 1021 -BYTE ATSC_MAX_SLOTSIZ ; Data slot size ‘ 
60008 ¢ 4A0 10 § -BLKB : Null source and destination slot names 
| 00000005 O4A2 102 GHB_C_STRT_SLOTL = <.-GHB_T_STRT’SLOT> 
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4A2 1025 -SBTTL Port Vector 
Ms 1868 
4 1028 ; The associated class driver uses this table to command the port driver. 
4A2 1029 ; The address of this table is contained in the terminal ucb extension area. 
zn } ; The offset definitons are defined by ttydefs. 
4Ac 1 § 
04A2 1033; 
nn 18 : $ LAT specific dispatch table 
4A2 10 § 3 ORDER DEPENDENCY 
4A2 1037 ; The following symbol must immediately precede the vector 
O4A 1938 3 
04A2 1039 
04A2 1040 .ALIGN LONG 
04A4 1041 GHB_L_AREA: 
Q00004A8 04A4 ek -—BLKL 1 ; Address of counter vector 
Beas 10435 LTSVECTOR: 
4A8 1044 SVECINI LT,LTSNULL 
Q4EO 1045 $VEC STARTIO,LT$STARTIO 3; Start new output 
04AC 1968 $VEC DISCONNECT, LT$DISCONNECT ; Hangup port | 
0480 104 $VEC ABORT, LTSABORT ; Abort output 
04CC 1048 $SVEC  SET_LINE, LTSFLOW_CHANGE > Change flow control 
0484 1049 $VEC XON,LTSXON 3; Send xon sequence 
048C 1050 $VEC XOFF ,LTSXOFF ; Send xoff sequence 
04C0 1051 ; $VEC DS_SET,LTSDS_SET : Dataset transitions 
040 1926 SVECEND 
04E4 105 
04E4 1054 LTS$NULL: ; Null port routine 
0S O4E4 1055 RSB 


B 2 
LTDRIVER = Local Area Terminal Port Driver 16-SEP-1984 01:46:44 VAX/VMS Macro v04-00 Page 25 | 
ba tt Port Vector -SEP- 1984 Hi :22 PEAT SRCICTDRIVER MAR: 1 . (32) | 


LAT_C “RSN_ KX 
rcuit forced to halt> 
LT_RSN_ my IDLOCID: 


4E 1937 
4E5 1 28 H 
4E5 1059 ; Stop reasons 
ee 
te? 1068 «MACRO ro neeewe RSNBIT, RSNSTR, ?L 
tee 1064 * STGNeD GOR D bee 
4E5 1065 -BYTE RSNCD, RSNBIT 
ret 1368 L: eASCIC /RSNSTR/ 
rt; 188 -ENDM 
00000001 rt 1 $5 LAT_C_CRSN_DONE = 1 ; No slots in VC 
a4 44 64 04 tee 1070 LAT_C_CRSN_IVMSG = ; ; Invalid message 
00000003 O4E5 1071 LAT_C_CRSN_IVSCI = ; Invalid slave conn id 
00000004 04E5 1926 LAT_C_CRSN_IVMCI = 4 ; invalid master conn id 
00000005 04E5 1073 LAT_C_CRSN_DISC = 5 ; Disconnect requested 
00000006 04E5 1074 LAT_C_CRSN_PROGRESS = 6 ; No progress being made 
00000007 0O4E5 1075 LAT_C_CRSN_TMO =7 ; Timeout of circuit 
00000008 04E5 1076 LAT_C_CRSN_RETRANS = 8 ; Retransmit count exceeded 
00000009 04E5 1077 LAT_C_CRSN_RESOURCE 29 ; No resources 
QOCOO00A O04E5 1078 LAT_C_CRSN_TIMRANG = 10 ; Timer value out of range 
04E5 1079 
04E5 1080 
00000000 0465 1081 LAT_C_RSN_xxx = 0 3; junk 
04E5 1986 
04E5 1083 LT_RSN_START: 
04E5 1084 SREASON - 
04E5 1085 GHBSV_START,- 
04E5 1086 LAT_C7RSN_XXX,= 
04E5 1087 <other than start msg with a zero src index> 
0515 1088 LT_RSN_ CSBIER 0: 
0515 1089 $REASO 
0515 1090 GHBSV _CSBZERO,- 
Bate 1091 LAT_C“RSN_XXX,= 
515 1995 <circuit index zero> 
052D 1093 LT_RSN_ CSBRANGE : 
052D 1094 SREASO 
052D 1095 GHBSV ~-CSBRANGE , ° 
052D 1096 LAT_C_RSN 
052D 1097 <circuit index out of range> 
0540 1098 LT_RSN_ CSBINVAL ID: 
054D 1099 SREASON - 
B240 1190 GHBSV_CSBINVALID,- 
54D 1101 LAT_C-RSN_XXX,= 
054D 1136 <circuit index invalid> 
0568 1103 LT_RSN_ CSBSTAL E: 
56 1138 SREASO 
568 1105 GHBSV -CSBSTALE,~ 
56 1196 AT_C"RSN * 
5 118 <circuit stalé reference> 
584 11 3 LT_RSN_HALT: 
8 4 110 SREASON - 
584 1110 GHB$V_HALT,- 
at 
35 1118 
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59 SREASON - 

oF GHBSV_INVALIDLOCID,~ 

59F T_CRSN_XXX, = 

59F <invalid local slot id> 

SBA LT_LRSN_INVALIDREMID: 

>BA SREASON = 


GHBSV_ vn eeee* 
“RSN_XXX 


SS 


tt a —b — 2 — — —s = — 2s 49 2 2 


— —) 8 4 9 - 2 2 2 2 os 2 2 — —s 2 3 2 ts 
SS WWNWIWWWIWIIIRononononononononons 2 | 2 


5 
5 <invalid remofe sTot {a> 
43 LT_RSN_BADCREDITS: 
D REASON - 
50 GHB$V ew 
5D SN_XXX,= 
0505 <bad nuaber “of credits in slot> 
OSF LT_RSN_REPCREA TE: 
bet SREAS 
SF GHBSV “ne sane? - 
OSF LAT c= N_XXX,= 
OSF <repeat treate ot slot by server> 
061C LT_RSN_REPDISC: 
061C $R REASO 
061C GHBSV “nia aae” - 
061C 


LAT_C_RSN 
<repeat Ufsconnect. ~% slot by server> 


ALIGN LONG 


SOWONA ULE WN 0 ODNOU ES AW OOONOUS 


tus 


51 04 AG 
FBID CF 
0000006 
FB2 

FB1B CF 


51 00000000" GF 
50 _1E Al 
50 651 850 
60 

05 

80 51 

F7 

51 0000'CF 
50 FE2A CF 
60 

05 


dO 
co 


—-—FTOWS 
OVUM O 


064F 
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11%8 ~SBTTL LTSCTRL_INIT = Controller Initialization 
1122 «DEFAULT DISPLACEMENT, WORD 
1178 : LTSCTRL_INIT = Initialize port driver 
1148 : Functional description: 
1130 ; This routine is entered at driver load and power recovery. 
1152 ; Inputs: 
1188 eee 
1154 ; R6 = DDB address 
1155 R8 = CRB address 
1156 ; 
1157 ; Outputs: 
1158 ; 
ER ; RO through cr3 are modified. 
1161 : Implicit inputs: 
1136 3 
1163 ; IPL = IPL$_POWER 
1164 ; 
1165 ‘Ts 
1388 ¢ LTSCTRL_INIT: ; Initialize controller 
1188 : Save the address of unit zero for cloning ucbs, if its here now. 
1170 ° MOVL  DDBSL_UCB(R6), R1 ; Its in the device data block 
1171 BEQL 5$ ; Do not store a zero 
1128 $$ MOVL R1, GHB_L_UCBO ; Save its address 
1124 ; MOVL Gc ScHseL NULLPCB+PCBSL_PHD,- ; Get address of NULL PHD 
1176 ADDL #PHOSL CPUTIM,GHB_L_NULLCPU ; Get offset to “‘idle time’ 
1178 ; 
1179 ; Attempt to relocate terminal class vector table in case we are the 
1180 ; first port driver to load. 
1182 
1183 OVL G*TTY$GL_DPT,R1 ; Get terminal class driver DPT address 
1184 MOVZWL DPT$W_VECTOR(R1).RO ; Get offset to class vector 
1132 ADDL3 RO,R1,R0 ; Calculate virtual address 
1186 10$:  TSTL (RO) : Already | relocated or done? 
1187 BLEQ 20$ :; Br if y 
1188 ADDL R1,(RO)+ ; Else, Yad bias 
1189 BRB 10$ : Loop till done 
1191 : Relocate port vector table 
1136 : 
1193 20$: 
1194 MOVAL LTSDPT,R1 ; Get our DPT address _ 
1195 cits MOVAL LTS$VECTOR,RO : Get address of our dispatch vector 
1199 ; TSTL (RO) ; Already relocated or done? 
1198 BLEQ 40$ ; Br if yes, powerfail 
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ADDL 1,(RO)+ 
BRB ay 


= 
Oo 
Sad 


MOVAB LTSSTRENT 

GHBSL SIREN RY GH AREA : 
MOVAB LT$SH 

att th SHUTENTRY GHB ~ARER 
MOVAB LTSSETEN 

GH vgs SETENTRY + GHO_ AREA : 
MOVAB EA 


GHB7L_AREA : 
MOVB erexEg SYSTIME,- : 
GHB_B_INCARN : 


MOVAB on. T_MC_DATA,= 
GHBSL-NOBE+GHB_AREA 


ASSUME GHBSB_LATVERSION EQ GHBS 
B-LATECO EQ GH 


ASSUME GHBS$ 
MOVL be CUR hy - ; 
C_COR =VER>O1 ; 
set AREA 
MOVB wLATSC : 
¥ BOLD a: tnt 
MOVAB GHB lw CSBTABE “ye : 
L“CSBLST+GHB_A 
ST ; 
BNEQ 50$ : 
MOVL RO, (RO) : 
MOVL RO,4(RO) : 


50$: 3 
; Setup the initial rating value, 


MOVL G*MMGSGL_MAXPFN,RO 
#8192,R0™ 


SUBL3 RO,# RO 
BGEQ 70% 


CLRL £0 
70S: SUBBS RO.#255,GHB_B_RATE 


- IF DEFINED LT_HISTORY 


AX/VMS Macro v04-00 Page 3 
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Rr add bias 
Loop til done 


Set address of start entry point 
Set address shutdown entry point 
Set address of multicast set entry 
Save address of the common area 

so we can find them from LATCP 


Get a random number 
and save for the message seed value 


; Address of multicast data area 


W_VMSVERSION+2 


BSB"LATVERSION+1 


Store current ECO 
and VERsion 
and VMS VERsion 


; Set number of CSBs to keep around 


Store address of CSB table 


REA 
moe GHeS0~ OLD_CSBS+GAB_AREA, RO Get address of old CSB entries 


already initialized? 
Br if yes, skip next section 


: vehi ize Listhead 


based on memory size 


Get the max PFN count 
: Weigh t by 4MB chunks 
; Compute for up to 32 MB systems 
; Br if result one? MB 


; Else, more than - impressive! 


; Store initial Rk, 
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or? ] $3 es -SBTTL LTSHISTORY = Save history in the buffer 
ore } ¢} > LTSHISTORY = Save history in the buffer 
6F7 1 rk : Save history on transmits and receives. 
6F7 1250; The history buffer is defined as follows: 
aay : 
per? } 38 3 Pointer to next slot 
Ost 23 : ; Pointer to end of buffer! 
Ose? 3) : ispare!type! buffer size 
06F7 1259 ; i sue GO00 ine 
06F7 1669 3 
O6F7 1261 ; ! ' 
bere 1566 3 $eeeeceeeeeeesoeecececeecan + 
06F? 1264 : Inputs: 
se : 92 : RO -> data to save 
O6F7 1267 : Outputs: 
O6F7 1268 ; R1 is clobbered 
By 1889 I 
00000020 Bere is? SLOT_SIZE = 32 ; Size of each history slot 
O6F7 1378 LTSHISTORY: 
51 FAIS CF DO O6F7 1274 MOVL GHB$L_HISTORY+GHB_AREA,R1 ; Point to history buffer 
2—E «13 Rete 16?) BEQL 90$ ; Br if none 
50 DD O6FE 1277 PUSHL RO ; Save RO 
20 C1 0700 1$78 ADDL #SLOT_SIZE,- ; Compute end address for this slot 
50 61 0702 1279 HBF_C_NEXT(R1),RO 
04 Al 50 D1 0704 1280 CMPL RO, HBF-L_BUFEND(R1) ; Are we past the end? 
06 1B 0708 1281 BLEQU 30 ; Br if no, continue _ | 
OC Al 9E O70A 1 86 MOVAB HBF_Z2_DATA(R1),- ; Else, back to beginning 
61 070D 128 HBF ~L"NEXT(R1) 
51 61 DO O70E 1284 30$: MOVL HBF_L_NEXT(R1),R1 ; Get address of next available slot 
81 00000000'GF 7D 0711 1285 mMOVQ G*ERESGQ_SYSTIME,(R1)+* ; Store time in first quadword 
50 6€ 4 0718 1286 MOVL (SP),RO ; Get back buffer address 
81 80 D 0718 1287 mova (RO)+, (R1)+ ; Save the data 
81 Hi 7D grit 1 HY MOVQ (RO)+, (R1I)+ 3; Save the data 
81 7D 721 1289 MOVaQ (RO)+, (R1)+ ; Save the data 
Bf 4 1290 ASSUME HBF_L_NEXT EQ 0 
F9EB DF 51 DO 0724 1291 MOVL R1,9GAB$L_HISTORY+GHB_AREA ; Save address of next slot 
50 8EDO 8 , 1336 POPL RO ; Restore RO 
05 072C¢ 1294 90$:  RSB : 
072D 1295 ~ENDC 3; DEFINED LT_HISTORY 
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- Local Area 
LTSSTRENTRY = Entry to start driver ~SEP-1984 LAT.SRCILTDRIVER.MAR; 1 v04- 
4 p } 4 “ -SBTTL LTSSTRENTRY = Entry to start driver 
f 4 ! $3 : LTSSTRENTRY = Start LTDRIVER entry point 
, p 1 : Functional description: | 
72d 1 08 : This entry is called by the startup proers to initialize the | 
072D 1304 ; driver. Here we save the datalink UCB address, allocate the CSB's 
4 4 : b2 : and start the first receive. | 
72D 1 09 : Inputs: 
f 4 } 88 i RS = UCB address of datalink 
072D 1310 : Implicit inputs: 
072D 1311; . . 
072d 1 \¢ 5 Called in user context. 
072D 1313; 
O72D 1314 ; Outputs: 
0720 1315; RO = success or failure 
072D 1316 ;-- 
072D 1317 
Bred 1318 
072D 1319 LTSSTRENTRY: 
b7¢8 1320 DSBINT #LATS$C_IPL ; Raise IPL to prevent interruption 
FOES CF 655 =O Ores 135) R5,GHBSL_UCB+GHB_AREA =; Save the datalink UCB address 
| 
59 FBFC CF 9E 0738 1353 MOVAB GHB_L_CSBTABLE,R9 ; Get CSB table base address 
SA 20 9A O073D 1324 MOVZBL #LATST_MAX_CSBS,R10 ; Get table length in longwords 
89 D4 0740 1325 208: CLRL (R9)+ ; Zero the whole table l 
FB SA FS tok 1356 SOBGTR R10,20$ ; Do whole table 
O74 1328 : Save the Last CPU idle value 
FA2F DF DO 0745 1 $0 MOVL § @GHB_L_NULLCPU,- ; Save last idle value 
FA30 CF 0749 1331 GHB"L“LASTCPU | 
50 00000000'GF pO O74C 1 36 MOVL G*EXESGL_MP,RO ; Get ptr to MP code 
07 13 O753 #1 BEQL 40$ ; Br if not there 
0000'CO pO 0755 1334 MOVL MPS$GL_NULLCPU(RO),- ; Else, get Secondary null time 
FA24 CF 0759 1335 GHB_L_NULLSEC 
O75C 1 $ 40$: ; : , 
075C 133 : See if the datalink sugeerte the fast interface and if so 
Boee 1338 3 then allocate an FFI block and initialize that interface. 
50 D4 or ee 1340 ELRL RO ; Assume error 
51 24 A5 D0 07 3 1341 MOVL UCBSL_CRB(R5), R1 ; Get address of datalink'’s CRB : 
51 40 A1 00 0762 1 4g MOVL RBSL~INTD+VECSL_START(R1) R1_ ; Get address of FFI INIT routine 
36 «613 «(0766 «134 BEQL 0$ ; Br if not present — i 
90% 3 768 1344 BSBW LISGETFFI 3; Else, create and initialize FFI 
30 50 £9 0768 1345 BLBC =—_-«RO, : Br if error 
FAO! CF 54 00 6 : rt} MOVL R4,GHB_L_FFI ; Else, save FFI block address 
0773 1348 CLRBIT #GHB_STS_V_MULTI,- ; Clear the multicast busy flag 
773 «1349 GHB-B_ STATUS : ‘ : 
FCSF CF 4 0779 1350 CLRL GHB_C_AULTIBFR ; No multicast buffer is possible 
0185 0 270 } 2! BSBW LTSSETENTRY ; Setup multicast message 
50 F9EB CF DO 130 1 2g MOVL GHB_L_UCBO, RO ; Set unit seed in the ucb 
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70$ 
CLRW UCBSW_MB_SEED(RO) 
BSBw LTSSET_TIMER 


MOVL GHBSL _UCB*GHB AREA, RS; 

ucesu REFC(RSS : 
BISW #*x8000,UCBSW_DEVSTS(RS); 
MOVZBL #sss NORMAL, RO ; 
BL RO, 80$ : 
CLRL GHBSL UCB+GHB_AREA : 
a LT SHOTENTRY : 
MOVZWL #SSS$_INSFMEM, RO ; 
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No ucbO, bad news 
Start with unit 1 
Start timer, so we always have a tick 


Get datalink UCB address 

One more ref to keep it around for us 

Allow unt to be re-started 
automatically by datalink 

Return success 

Br if okay 

Else, forget about datalink UCB 

Clean it all up 

Return not enough memory 

Restore IPL 
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LTORIVER - Local Area Terminal Port Driver 16-SEP-1984 01:46:44 VAX/VMS Macro V04-00 Page 32 
ba tt CTSceTFF I - Get the FFI block and initia mit) P ori :22 CLAT.SRCILTDRIVER.MAR;1 “ 3 
A } q] a -SBTTL LTSGETFFI = Get the FFI block and initialize FFI interface 
oe : zs 3; LTSGETFFI = Get FFI block 
7B80 1375 ; Functional description: 
780 1 6 3 
780 1377 ; Initialize the FFI interface. 
780 1 4 : 
780 1379 ; Inputs: 
0780 1380 ; ; 
0780 1381 ; Ril = Address of FFI INIT routine in datalink driver 
beep 1 § : RS = UCB address of datalink 
0780 1384 ¢ Output 
3; Outputs: 
0780 1385 ; 
0780 1386 ; RO = Status 
0780 1387 ; R1-R4 are destroyed. 
0780 1388 ; 
0780 1389 ;-- 
0780 1390 
0780 133) LTSGETFFI: 
51 DD 0780 1 8 PUSHL R11 ; Save init routine address 
51 3E 9A o7B¢ 139 MOVZBL #FFISC_LENGTH,R1 ; Set length of buffer to allocate 
00000000'GF 16 0785 1394 JSB G“*EXESALONONPAGED : Try to allocate an FFI block 
31 50 €9 O7BB 1395 BLBC RO,30$ ; Br if error 
54 52 00 O7BE 1396 MOV. R2,R4 ; Copy FFI block address 
07¢1 139 ASSUME FFISL_FL EQ 0 
07C1 1398 ASSUME FFISL_BL EQ FFISL_FL+4 
07C1 1399 ASSUME FFIS$W_SIZE EQ FFISL_BL+4 
07C1 1400 ASSUME FFISB_TYPE EQ FFIS$W_SIZE+2 
07C1 1401 ASSUME FFISB-SPARE EQ FFISG_TYPE+1 
82 7C Q7C1 Uh CLRQ (R2)+ ;_Clear Link pointers ‘ 
82 0013003E 8F DO O7C3 140 MOVL #<DYNSC_BUF 10816>!FFISC_LENGTH,(R2)+ ; Store block size & type 
O7CA 1404 ASSUME FFISL_CTX DL EQ FFI$B_SPARE+1 
O7CA 1405 ASSUME FFISL_XMIT EQ FFISL_CTX_DL+4 
O7CA 1406 ASSUME FFISL_XMIT_DONE EQ FFISC_XMIT+4 
O7CA 1407 ASSUME FFISL_RECV_DONE EQ FFISL_XMIT_DONE+4 
O7CA 1408 ASSUME FFISL_ERROR EQ FFISL_RECV_DONE+4 
O7CA 1409 ASSUME FE LSL SHUT DONE EQ FFISL_E ROR+4 : 
82 7C O7CA 1410 CLRQ (R2)+ ; Zero CTX & XMIT routine address 
82 i1BIB'CF 9& O7CC 1411 MOVAB W*“LTSXMT_FFIDONE,(R2)+ ; Store XMIT Complete routine address 
82 OCEC'CF 9€ O7D1 1316 MOVAB W*LTSFFI_RCV_MSG,(R2)+ ; Store RECV Complete routine address 
82 O934'CF 9E& O7D6 141 MOVAB W*LTSASYACERR, (RO) + ; Store address of ERROR handler 
82 0923'CF 9E 0708 1414 OVAB wW*LTSSHUT DONE (R2)+ — : Store address of SHUTDOWN handler 
7EO 1415 ASSUME FFISL_SPARE a) FF ISL_SHUT_DONE+4 
O7EO0 1416 ASSUME FFISL SPARE] EQ FFIS$L~SPAREO+ 
O7E 1417 ASSUME ET Er-epAnes EQ FFISL_SPARE1+4 
Bre 1213 ASSUME FFISL_SPARES EQ FFISL_SPARE2+4 
82 7C 7E 141 LRQ (R2)+ 3; Not used 
82 7C O7E2 1420 LRQ (R2)+ 
O7E4 1421 ASSUME FFISL_DL_UCB EQ FFISL_SPARE3+4 
O7E4 14 ; ASSUME FFISL-PIB EQ FFIS$L_DL-UCB+4 
7E4 14 ASSUME FFIS$W CHAN EQ FFISC_PTD+4 . 
> ie: | ree 1424 MOVL R5,(R2)+ : Store datalink UCB address 
2 D4 O7E7 1425 CLRL (Rg) : Zero PID 
2 84 7E9 1426 CLRW (R2)+ ; Zero CHAN 
50 O00°8F 9A O7EB 1427 MOVZBL #SS$_NORMAL ,RO ; Return success 
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LTORIVER - bocel Area Terminal Port Drive 19-SEP-19 4 YAX/ViS Macro V04-00 Page 33 | LTDI 
v04- LTSGETFFI = Get the FFI block ond initia 5-SEP-1984 1; + ‘33 LAT. SRCILTDRIVER.MAR; 1 (28) | V04: 
51 BEDO O7EF 1428 308: POPL 3; Restore R1 
OF 29 E9 O7F 14 LBC Rd, 908 ; Br if oe a +l error 
53 D4 «(07F5) «(1430 CLRL oR ; No paramete 
61 16 O7F7? 1431 JSB (R1) 3; Else, call “datal ink init routine 
08 50 €8 O7F9 14 : BLBS  R0,90$ : Br if succ | 
50 54 DO O7FC 14 MOVL ; Else, copy Fr block sddrese 
139E 30 O7FF 1434 BSBW LT$DEALPOOL : Deallocate the FFI bloc 
50 D4 0802 1og2 CLRL RO ; Return failure 
05 0804 1436 90S: RSB 
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1038 ve: -SBTTL LTSSHUTENTRY = Shutdown entry point 
\e29 ; LTSSHUTENTRY = Shutdown LTDRIVER entry point 
8 1906 ; Functional description: 
5 12d : Shutd hi h d 
; utdown things when we are done. 
BF 108 Fs cou 
; Inputs: 
805 1249 3 non 
508 1209 ; Implicit i 
: Implic nputs: 
$808 1450 ; 
0805 1451 ; Called in user context. 
0805 1436 : 
0805 14535 ; Outputs: 
0805 1454 ; none 
0805 1455 ;-- 
0805 7456 
0805 1457 LTSSHJTENTRY: 
0805 1458 DSBINT #LATS$C_IPL ; Sync with rest of things 
080B 1459 SETBIT #GHB_STS_V_SHUT,= ; Indicate that shutdown has been 
080B 1460 GHB-B_STATUS : requested 
0811 1461 
0811 1298 Py | 
+h 1ee7 : Deailocate and shut down all the circuits 
59 F823 CF DE 0811 1465 MOVAL GHB_L_CSBTABLE, R9 ; Table of CSB addresses 
SA 20 9A 0816 1466 MOVZBL M#LATSC_MAX_CSBS, R10  ; and its Length | 
89 0 0819 1467 40$: MOVL (R9)+, RB ; Get a CSB address 
03 13 O81C 1468 BEQL 6 ; No CSB address here 
OEDO 30 O81E 1469 BSBW LTSCIRCDEAD ; Kill all processes on this one 
FS 5A FS O81 1470 60S: —SOBGTR RIO, 408 : Til end of table | 
0824 1471 
0824 19%6 : | 
0824 1473 ; We can reduce our interest in the datalink UCB here early because 
0824 1474 ; the LAT control progres stiil has a channel te the UCB and is still 
0824 1475 ; active. The UCB will disappear when the LATCP deassigns its last | 
base 1008 3; channel to it. 
0824 1477 ; 
0824 1478 : 
59 FBFB CF 09 0824 1479 MOVL HBS$L_UCB+GHB_AREA, R9 ; Get datalink UCB and reduce our interest | 
19 13 0829 1480 BEQL ; No ucb here 
68 AY 8000 BF AA 88 ° 148) BICW #*x8000,UCBSW_DEVSTS(R9); Don’t want datalink to re-start 
14 ¢ ; | any more! 
5C AY =s«B7 8B 1 14 DECW UCBSW_REFC(R9) ; Let datalink UCB q° away. 
FREES CF D4 0834 1484 CLRL GHBSL_UCB+GHB_AREA ; Forget we ever had it | 
08 : 1485 ; This prevents more circuits from 
o8 12 § ; being accepted. 
8 1488 ; Wait for any datalink re-start timer to expire. Spin on | 
4 1355 3 the INTERLOCK bit. 
1491 SETIPL M#IPLS$_ASTDEL ; Prevent us from being deleted, | 
B 1236 : but allow scheduling activity 
04 68 AY OF ‘ 1495 70$: BBC #14, UCBSW_DEVSTS(R9) ,80$ ; Proceed if UCB can evaporate 
0 40 1494 BSBB BUILD_TQE ; Wait around for a while 
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Hoan 008 LTESHUTENTRY = Shutdown entry point eS 7 91528353 LAT.SRCIJLTORIVER.MAR; 1 - 33) 
F711 0842-1495 BRB 708 ; Try again | 
44 1696 
44 1497 80$: 
44 1498; 
44 1499 ; Now we must wait for all the CSBs to disappear. We must not leave 
44 1300 3 here until all the pesessess have run down and the CSBs are gone 
844 1501 ; since latstart can be used again very quickly and that could cause 
844 15 § 5 CSBs to be allocated again. If processes don't run down we will 
pate 1 3 be stuck here until they do. 
0844 1505 ° SETIPL #IPLS_ASTDEL ; Prevent us from being deleted, | 
Sees 1296 ; .but allow scheduling activity 
02. 11 pees F344 PRB 110$ ; See if CSB's are all gone 
0849 1309 : Now delay while we wait for CSB's to run down | 
67 10 aBe9 1311 1008: BSBB = BUILD_TQE ; Build TQE to wait on and wait | 
59 F7E9 CF DE 0848 1318 110$: MOVAL GHB_L_CSBTABLE,R9 ; Table of CSB addresses | 
5A 20 9A pe28 1514 MOVZBL #LATST_MAX_CSBS, R10 ; _ and its length | 
58 89 DO 0853 1515 120$: MOVL (R9)+, RB ; Get a CSB address 
Fl 12 0856 1516 BNEQ 1 ; Just spin here looking | 
F8 SA F bbee 1312 SOBGTR R10, 120$ : Til end of table 
tH 1312 : Now wait for all the UCBs to dissappear except unit 0 
02. 11 0858 1381 BRB 1608 ; Check if we're all done | 
| 
53 10 oaeP 1398 140$:  68SBB BUILD_TQE ; Build TQE to wait on and wait 
peer He : Now delay while we wait for terminal UCB's to run down 
50 F909 CF DO O85F 1527 160$: MOVL  GHB_L_UCBO.RO ; Get the LT UCB address 
OA iF 0864 1528 BEQL 180$ g att | 
51 24 AO DO 0866 1368 MOVL UCBSL_CRB(RO) ,R1 : Get the CRB address 
01 OC Al B81 086A 1530 CMPW = CRBSWTREFC(R15 #1 : ALL done ? 
ED 12 433 1531 BNEQ 140$ :; Br if no 
+ £4 1336 180$: ; : ; 
+f 133? ; Reset completion routines for datalink's FFI interface 
bare 1535 SETIPL #LATSC_IPL :; Sync access to rest of driver | 
55 F8FD CF DO 087 1298 MOVL GHB_L_FFI, RS ; Get FFI block address 
13 0878 1537 BEQL 00s ; Br none 
1B9F'CE 9E Bae 1338 MOVAB W*LTSOROPCXB,- : Drop all RECEIVE buffers 
18 AS 7E 1539 FFISL_RECV_DONE(RS) 
1B896"CF 9E& 0880 1540 MOVAB W*LTSFFIPOSTDONE,- ; Deallocate all TRANSMIT CXBs 
14 AS 0884 1541 FFISL_XMIT_DONE (RS) 
0886 1266 200$: ; 
OBE 1367 ; Deallocate the multicast buffer 
50 B52 CF 9 o8 6 1545 MOVE HB L_MULTIBFR,RO ; Get the multicast buffer 
08 13 O 1546 BEQL 208 ; Br if none 
D 1547 ASSUME GHB_STS_V tee: y 0 A 
03 F8F3_CF 58 D 1368 LBS GHB-B_STATUS,220 : Br if multicast buffer is active 
1308 3 154 BSBW LTSBEALPOOL ; Else, deallocate the multicast buffer 
FB43 CF D4 8 23 1329 220$: CLRL GHB_L_MULTIBFR ; Forget we had a multicast buffer 
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ass 133¢ ; Flush all CSBs on the old CSB display queue 
50 F893 DF OF 99 1337 240$: REMQUE RENEOE OLD CEES *GNE_AREA-RO ; Get CSB address 
1D 089 132? BVS 300$ ; Br if none 
12FD «6°30 O8A0 15 § BSBW TSDEALPOOL 3 Else, deallocate the CSB 
F4 11 OBAS 155 BR 4 3 Loop til don 
OA 90 O8AS 1558 300$:  MOVB #LATS$C_KEEP_CSB,- 3; Reset number ef CSBs to keep around 
FDC CF OBA? 1339 GHB_B_OLD_CSBCNT | 
AA 1560 5 
_ 120] ; Mark LTDRIVER as inactive 
F8D6 CF 894 ~ 1 °§ CLRB GHB_B_STATUS ; Clear ACTIVE flag to stop timer 
AE 1564 : clear SHUTdown flag | 
OBAE 1565 ; clear MULTIcast buffer flag 
OBAE 1566 ENBINT 
05 0881 1567 RSB 
0862 1568 
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vba tt TQE TIMER BUILDING AND WAITING ROUTINES at 4 oid :22 CLAT.SRCILTDRIVER.MAR; 1 ° (30) V04: 
} 0 P -SBTTL TQE TIMER BUILDING AND WAITING ROUTINES 
Bo 1 c : BUILD.TQE - Build a TOE | 
5 qi : I 
; inputs: 
8 1575 ; IPL = ASTDEL 
6Be 1 6 3 
ts ! : Implicit inputs: 
8 8 1378 3 Called in user context 
BE HEE | Las ce sesrare 
3 “-R5 are destroye 
88 138§ i-= 
08B2 1584 
4 1585 BUILD_TQE: 
00000000'GF 16 0882 1586 JSB G*EXESALLOCTQE 3; Allocate a TQE (returns IPL = ASTDEL) 
4A E9 0888 1587 BLBC ; Br_ if allocation failure 
0B A2 01 90 O88B 1588 MOVB #TOESC_SSSNGL TOESB_ROTYPE(R2) ; Indicate single shot request 
OC A2 O6°AF QE O8BF 1589 MOVAB B“SHUT-TIMER, TOESL_FPC(R2) ; Set wake up routine address 
7E dC O8C4 1590 MOVPSL -(SP) ; Push current PSL to resume process 
Bate 1591 ASSUME IPLS$_SYNCH EQ IPLS$_TIMER 
8C6 1336 SETIPL #IPLS_SYNCH 3 Sync access to system data base 
50 00000000'GF 7D O08C9 159 mMOva G*EXESGQ_ SYSTIME,RO ; Get current time 
50 004C4B40 8F CO O8D0 1594 ADDL #LATSC_SAUTDELAY,RO 3; Calculate expiration time 
51 00 08 O8D7 1595 ADWC #0,R1 ; Add carry to top half 
55 52 D0 O8DA 1336 MOVL R2,R5 ; Copy TQE address 
00000000°GF 16 pee8 159 JSB G*EXESINSTIMQ ; Insert TQE on timer queue 
O8ES 1598 CLRBIT #GHB_STS_V_TQE,- ; Indicate TQE not complete - yet 
O8E3 1599 GHB-B_STATUS 
0 11 O8—E9 1600 BRE 60$ ; Wait for TQE 
0 EO O8EB 1601 40$: BBS #GHB_STS_V_TOQE,=- ; Br if TQE is complete 
14 F894 CF O8ED 1608 GHB-B_STATUS, 90$ | 
E OC O8F1 160 MOVPSL <-(SP) ; Push current PSL to resume process 
54 Q00000000'GF pO O8F3 1604 60$: MOVL G*SCHSGL_CURPCB,R4 3; Get current PCB address 
0 01 9A O8FA 1605 MOVZBL #RSNS_ASTWAIT,RO : Set waiting resource 
00000000'GF 16 O8FD 1606 JSB G*SCHSRWAIT 3; Make process wait for resource 
E6 11 0903 1607 BRB 40$ ; Check if TQE expired 
05 0905 1608 90$: RSB ; Return to caller 
0906 1609 
0906 1310 ;++ 
906 1611 ; SHUT_TIMER 
906 1916 : ; ; 
844 1613 ; This routine wakes up the waiting process 
9 1614 ; 
0906 1615 ; Inputs: 
0906 1918 : R4 = PCB address 
906 1617 ; RS = TQE address 
906 1913 3 
0906 1619 ; IPL = IPLS_TIMER 
0906 1620 ; 
906 1621 ; Outputs: 
9 ? 16 § ; RO is destroyed 
, 19 i ; R5 = TQE address of system non-repeating TQE 
906 1625 
0906 1626 SHUT_TIMER: 
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SETBIT ah tt A ; Indicate TQE has completed 


U 
MOVZBL #RSNS_ASTWAIT,RO ; Set waiting resource 
JSB G*SCHSRAVAIL Mark Cegeur ce available 
R5,R0 Copy TQE address 
TSDEALPOOL Deallocate the TOE 
“EXESAL, TGENOREPT, R5 Setup SYSTEM no repeat TQE address 
Return to caller 
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Terminal Port Driver 16-SEP-19 
tak shutdown complet “een a 74 35 PEAT SRCILTORIVER.MAR; 1 


e3 

ONE - Datal 

- 77 a -SBTTL LTSSHUT_DONE = Datalink shutdown complete entry 

1 8: : LT$SHUT DONE = Datalink shutdown complete entry point 

ier ; Functional description: 

1006 : Deallocate the FFI block when datalink is all done. 

1644 : inputs: 

bo ; R4 = FFI block address 

16e9 ; outputs: 

1648 ; RO R1,R4 are destroyed 

198) ; ALC other registers must be preserved 

1651 ° 

1926 LTSSHUT_DONE:: 

165 PUSHR #*M<R2,R3,R5> ; Save registers 

1654 MOVL GHB_L_FF1,RO ; Get FFI block address 
1655 CLRL GHB_L_FFI ; Zero pointer to FFI block 
1656 BSBW LTSBEALPOOL ; Deallocate the FFI block 
1922 ao #*M<R2,R3,R5> ; Restore registers 
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LTDRIVER - Local Area Terminal Port Driver 16-SEP-19 ies Macro v04-00 P | 
yon 008 LTSASYNCERR = Process async errors from SFE} 88e 9} 08:33 LEAT SRCILIDRIVER. MAR; 1 — (3) 

2 : Pn -SBTTL LTSASYNCERR = Process async errors from datalink 

, 2 LTSASYNCERR = Process async errors from datal ink 

09 4 ; Functional description: 

0934 Do Nothing. 

A # . 

0934 3 

0934 LTSASYNCERR 

05 0934 


oe a tt 
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ocal Ar 
LTSSETENTRY = Set a new multicast messa 5-SEP-19 LAT.SRCILTORIVER.MAR; 1 (33) | 
2 1676 al -SBTTL LTSSETENTRY = Set a new multicast message 
4 1ore LTSSETENTRY = Set new multicast message 
; 1676 : Functional description: 
9 1678 ; Take the data from the multicast data area and store it in a new message 
88 1903 : or bump the incarnation so we know to do it next time. 
0935 1681 : Inputs: 
09 1883 3 2 None. 
8 2 198 3 
9 1684 ; Outputs: 
09 2 1685 ; RO = success or failure 
ee 2 1956 3 ALL other registers are preserved. 
§932 1688 : Implicit outputs: 
0935 1689 ; Multicast timer set to 1 second interval. 
0935 1690 ; 
0935 1691 ;-- 
0935 1636 
0935 1693 LTSSETENTRY: 
0935 1694 DSBINT #LATSC_IPL 
OO7E 8F BB 0938 1695 PUSHR #*M<R1,R2,R3,R4,R5,R6> |; Save registers 
D4 O93F 1696 CLRL R6 ; Assume no old CXB change flags 
52 FA97 CF DO 0941 1697 MOVL GHB_L_MULTIBFR, R2 ; Get the Multicast CxB 
A 13 0946 1698 BEQL 10$ ; Br if none, go make one 
F839 CF 96 0948 1699 INCB GHB_B_INCARN ; Bump the incarnation count 
094C 1700 ASSUME GHB-STS_V_MULTI EQ 0 
03 F834 CF 59 094C 1701 BLBC GHB_B_STATUS, 5$ ; Br if multicast buffer is free 
0099 51 Bae, 1706 BRW 70$ ; Else, do this operation Later 
0994 1704 : Multicast buffer is available, deallocate it! 
56 4F A290 0934 1706 5$ MOVB XMT_B_MC_CHG_FLAG(R2).R6; Save previous change flags 
50. 52 00 0958 1707 MOVL ; Deallocate the old CXB buffer 
FA7D CF D4 0958 «1708 CLRL GHB_L_MULTIBFR : NO more mutlicast CXB buffer 
123€ 0 a4 1799 BSBW LTSBEALPOOL ; Dump the buffer 
51 Fbes r- = 0360 1711 10$: MOVZWL GHB _W_MC_SIZE, R1 ; Get size of data set by LATCP 
51 00000052 8F CO 096 ie ADDL #xmT_6 mC_SET, R1 : plus message overhead 
00000000'GF 16 O96E 171 JSB G EXE SALORONPAGED ; Now get the buffer 
78 50 «#4€9 0974 1714 BLBC . 808 : No pool for buffer 
08 A2 51 4BO0 O977 1715 MOVW R1, CXB$W_SIZE(R2) : Size of buffer 
978 1716 ASSUME CXBS$B_CODE EQ CXBSB_TYPE+1 
0118 8F BO 097B 171 MOVW #<1a85'DYNSC_CXB,- : Set type and indicate multicast 
OA A2 O97F 1718 CXB$B_TYPE(R2 ; buffer 
18 A2 0048 8F 8B 981 1719 MOV #XMT_T_DATA,CXBS$W_BOFF(R2) ; Set offset to start of data 
FASO CF 52 OD mar 1780 MOVL R2, GHB_L_MULTIBFR ; Save address of the buffer 
445 V ¢ : Copy fixed portion of multicast message 
51 FASO CF 9€E et 1724 MOVA GHB_T_MC_MSG,R1 ; Point to msg template 
1 28 0991 1725 MOVC #XMT_C_MC_LENGTH,(R1),- ; Copy the fixed portion of message 
48 A2 994 7 $ XMT~T"DATA(R2) 
996 1728 : Copy the variable data set by LATCP 
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996 1729 : 
51 F7FO CF 3 996 1730 hovag GHB_T_MC_DATA,R1 ; Get address of variable data 
63 61 F7E9 CF 2 44 f 1 MOVC GHB_W_MC_SIZE,(R1),(R3) ; Copy the variable data 
pat Vy ; Set change flags, and incarnation number 
52. FA37 CF DO Seat 1735 MOVL GHB_L_MULTIBFR,R2 ; Get back the multicast buffer 
4F A2 56 FF BF BD O9A6 1736 XORB3 #XMT_CHFLG_M_ALL,R6,- ; Set change flags 
9AC 1737 XMT"B_MC_CHG_FLAG(R2) 
F705 CF 90 O9AC 1738 MOVB GHB_6 _INCARN,= ; Set incarnation number 
af A2 980 1739 XMT_B_MC INGARN(R2) 
50 48 A 9 9B2 1740 MOVAB XMT_T_BATA(R2), RO ; Address of start of data 
a. C 986 1741 SUBL ° ; Calculate the length 
1A A2 5 Bees ihe MOVW R3, CXBSW_BCNT(R2) ; Set length of message 
Beep Vite ; Copy the node name and descriptor for the START message | 
51 F7CB CF 9E QO9BD 1746 MOVAB GHB_T_MC_DATA+2,R1 ; Get address of multicast variable data 
53 FA32 CF GE O09C2 1747 MOVAB GHB_T-STRT_VAR,R3 ; Get address of start msg variable data 
56 53 DO O9C7? 1748 MOVL R3, R ; Save address of start of variable data 
50 81 «9A O9CA 1749 MOVZBL (R1)+, RO : Get size of group codes 
51 $0 CO O9CD 1750 ADDL ri ; Calculate address of node name 
50 61 98 0900 1751 MOVZBW (RI), RO ; Get size of node name | 
50 B6 09D3 ar INCW ; Include the byte count 
63 61 50 28 O9D5 175 MOVC RO, (R1),(R3) ; Copy the node name 
50 61 98 0909 1754 mov7Bw (Ri), RO ; Get size of node descriptor | 
50 B66 O9DC 1755 INCW R : Include the byte count 
63 61 50 28 O9DE 1756 MOVC3 RO,(R1),(R3) ; Copy the node descriptor 
83 B4 O9E2 1757 CLRW (R$)+ : No location text, no parameters 
53 56 C2 O9E& 1758 SUBL #6, R3 ; Calculate length of start message 
FOFD CF «6530 «(OCA OQ9E7 1759 ADDW3 #STRT C LENGTH, R3, - ; Store Length in holding cell | 
O9ED 1760 GHB_Q_STRT_LEN 
50  0000°8F 3C OQO9ED 1761 708: MOVZ2WL #SSS$"NORMAL, RO ; Return success : 
F9E3 CF O01 BO Bare 1766 80$: MOVW #1, GHB W_MULTIMR ; Send multicast msg on next tick 
OO7E 8F BA O9F7 1763 908: POPR #*M<R1,R27R3,R4,R5,R6> ; Restore registers 
O9FB 1764 ENBINT 
05 O9FE 1765 RSB 
OOFF 1766 
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OFF 1768 -SBTTL LTSUNIT_INIT = Unit Initialization 
OFF 178 p++ 
SFF 1770 ; LTSUNIT_INIT = Unit Initialization 
SFE 1772 § Functional descripti 
; Functional description: 
oor 1558 : 
ORFF ae ; This routine performs a simple unit initialization. 
OFF 1278 : Inputs: 
Bere 1777 ; 
OFF 1778 ; R5 = UCB address 
pore 1779 ; 
SFF 1780 ; Outputs: 
OOF F 44 ; 
OOFF 17 ¢ 3 RO-R3 are modified 
O9FF 1783 ;-- 
OOFF 1784 
pore 1785 LTSUNIT_INIT: 
05 €0 O9FF 1786 BBS #UCBSV_POWER,- :; Skip if power fail recovery 
SA 64 AS AQ! 1787 UCBSL_STS(R55, 70$ ; 
51 Q00000000'GF D0 OA04 1789 MOVL G*TTYSGL_DPT,R1 ; Address of class dpt 
50 1€ Al 3C OAOB 1790 MOVZWL DPTS$W_VECTOR(R1),RO ; Locate class driver vector table 
51 50 CO QAOF 1791 ADDL RO,R ; Relocate base address 
0114 ¢S) =51 =O mt 1038 MOVL R1,UCBSL_TT_CLASS(R5) ; Set terminal class driver vector 
010C CS. 61 =O sOOAI7—«1794 MOVL CLASS_GETNXT(R1) ,UCBSL_TT_GETNXT(RS) 
0110 C5) (04 Al DO OAIC 1795 MOVL CLASS _PUTNXT(R1) ,UCBSL_TT_PUTNXT(R5) 
50 28 AS DO OA22 1796 MOVL UCBSL_DDB(R5),R ; Get DDB address 
OC AO 10 A1 DO OA26 1797 MOVL §CLASS"DDT(R1) ,DDBS$L_DDT (RO) 
0088 CS 10 Al dO * 1738 MOVL CLASS_DDT(R1) ,UCBSL_DDT(R5) ; Set DDT address in UCB 
54 AS BS 0A31 1800 TSTW UCBSW_UNIT(R5) ; Special action for ucb 0 
07 13 OA34 1801 BEQL 0$ ; Its is unit zero 
0A36 1308 CLRBIT #UCBSV_TEMPLATE,- ; ALL others lose the template | 
0A36 180 UCBSL_STS(R5) ; bit so they won't clone on assign 
1D 11 OA3B 1804 BRB ; Continue 
F72A CF 55 D0 pare 1302 20$: MOVL R5, GHB_L_UCBO ; Save address of ucb zero 
QA42 1807 ; We are setting or clearing some bits in the LTAO device here so that all 
QA42 1808 ; Later lta devices will have them set/clear the same way. These bits are 
OAS2 1809 ; different from the defaults that are set in the sysgen parameters for 
av 139 ; the other types of terminals. 
A4 1812 : SETBIT #TTSV_MODEM, - ; Set modem so we do modem 
OA42 18135 ; UCBSL_TT DECHAR(RS) 3; processing for this terminal 
OA42 1814 SETBIT #TTS$V_REAOTE,- ; Set remote so we know its a remote 
A42 1815 UCBSL_TT_DECHAR(RS) ; _terminal forever. 
AS 1318 ; See setup_ucb routine for reasons 
0A48 1817 CLRBIT #TT2$V_AUTOBAUD,- ; We do not autobaud here. 
0A48 1818 UCB$L_TT_DECHA1(RS) ; 
OASE 1819 SETBIT #TT2$9_HANGUP,- ; Set default for terminal to hangup 
QASE 1820 UCBSL_TT_DECHA1(R5) ; on logout. this can be cleared by 
AS4 1821 ; the user from his terminal. 
A54 1 ¢ SETBIT #TTY$SV_PC_NOTIME,- 3; no timer service please 
ASG 1 UCBSWITT“PRTICTL(RS)  ; ... 
OASA 1824 40$: : 
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OASA 18 5 ; Finish initializing UCB. 
OF 10 OQASA 1 § 6sBB LTSUCB_INIT ; Initialize the terminal UCB 
0] a gaze + 8 BRB 90$ 3; And leave 
50 0134 ¢S5 DO OAS 1886 70$ MOVL ycest -LT_CSB(R5), RO ; = Fexer ott. reset the timeout 
05 13 Oa63 1831 BEQL 08 ; No CSB, just forget it 
66 AO BO OA6S 1832 MOVW CSB_W_TIMRESET(RO),- : And just wait on some thing 
50 AO OA68 1833 CSB_W_TIMEOUT(RO) ; To happen. 
05 OA6A 1834 90$: RSB 
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ree ! § ad -SBTTL LTSUCB_INIT = Initialize a terminal UCB 
re ! } 3 LTSUCB_INIT = Initialize a terminal UCB 
“<2 | rt ; Functional description: 
rer ' ry : Init the terminal UCB before starting a process to use it. 
A6B 1844 ; Inputs: 
3 = address 
re} : ro R5 = UCB add 
A6B 1 23 ; Outouts: 
A6B 1 $8 3 R5 = UCB address 
OA6B 1849 ; RO, R1 clobbered 
gs PF 
A6B 1 26 LTSUCB_INIT: 
54 AS 3 A6B 185 TSTwW CBSW_UNIT(RS) 3 Is this unit #0? 
3 6« A 1854 BEQL $ ; Br if yes, skip it 
5C AS =6BS OOA 1855 TSTW UCBSW_REFC(RS) ; Any channels attached? 
21 iF; OA73 1 2$ BNEQ : Br if yes, don't reinit UCB 
51 01 54 A5 78 OQA75S 185 ASHL UCBSW_UNIT(RS) ,#1,R1 ; Build unit's bit mask 
0080 cS = 51.—s BO s«~OA7A «(1858 MOV) R1,UCBSB_cx. NT(RS) : Save it 
0141 CS 94 OA7F 1859 CLRB UCBSB_| LOCID(R5) ; Flag as available (no local slot indx) 
FA21 CF DE OA83 1860 MOVAL LTS$VECTOR,- ; Set the port address in uc 
0118 C5 OA87 1861 UCBSL_T _PORT(RS) ; _in case port driver reloaded 
OOCC C5 D4 OABA 1366 CLRL UCBSL_TT_WFLINK(R5) ; Zero to force reinit of queue head 
51 0114 €CS DO OA8E 186 MOVL UCBSL_TT_CLASS(R5) ,R1 ; Address class vector table 
08 B81 16 OA93 1864 ine JSB @CLASS_SETUP_UCB(R1) ; Init UCB fields 
01 90 OA96 1866 wOvB #UCBSM_LT_DATA,- ; Look for data first time 
0142 C5 A98 1867 CB$B-LT~DATAW(RS) 
50 8F 90 OA9B 1368 1.0VB #LAT$C_UCB_BUFSIZ,- ; Init buffer 
014A C5 OA9E 1869 CB$B_CT_MAXC(R5) ; ae 
0148 CS) 94 QAAI 1 ts CLRB UCBS$B_LT_CURC(RS5) g ane 
0146 CS) 94 OAAS 1871 CLRB UCBSB_LT_TCRED(R5) : ree 
0120 ¢5 B4 QAAI 1876 CLRW UCBSW_TT_OUTLEN(R5) ; No data waiting 
05 OAAD 1873 90$: RSB 
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ry: ! o -SBTTL LTSSTARTIO = Start 1/0 routine 
wa : ? ; LTSSTARTIO = Start 1/0 Operation 
oy } hi ; Functional description: 
AAE 1881 ; This routine is entered from the device independent terminal startio 
a ! ¢ ; Routine to enable output interrupts on an idle unit. 
oe 1884 ; Inputs: 
AAE 1885 ; 
AAE 1 56 3 Re = character and cc = plus 
AAE 1 ; RS = address and cc = minus and R2 = count 
AAE 1888 ; RS = ucb address 
AAE 1889 ; 
OAAE 1890 ; Outputs: 
QAAE 1891 ; 
AAE 1 35 $ R5 = UCB address : 
AAE 1895 ; RO,R1,R2,R5 and R4 are modified 
QAAE 1894 ;-- 
OAAE 1895 
OAAE 1896 LTSSTARTIO: ; Start 1/0 on unit 
0760 8F BB OQOAAE 1897 PUSHR #*M<R5,R6,R8,R9,R10> 
58 0134 C5 D0 OAB2 1898 MOVL UcBSL_LT_CSB(R5), R8 =; Get Circuit State Block 
59 13 OAB? 1899 BEQL 5$ ; Br if UCB is hanging up 
OAB9 1900 3 
OAB9 1901 ; Dispatch on our terminal UCB state 
OAB9 1308 : 
OAB9 190 $DISPATCH UCBSB_LT_STATE(R5), TYPE=B,- | 
OAB9 1904 <- 3; state ; action 
OAB9 1905 <UCBSC_LT_STATE_KILL 168$>,- ; KILL state, flush data | 
OAB9 1906 > 
OAC1 1907 
gael 1398 ; ALL other states -- okay to send data 
01 88 OAC1 1910 BISB #\ICBSM_LT_DATA,=- ; Assume output data available 
0142 C5 OAC3 1911 UCB$B_LT_DATAW(R5) 
OAC6 1316 ; | 
OAC6 191 : Buffer data locally 
OAC6 1914 : 
OAC6 1915 5S: $DISPATCH UCB$B_TT_OUTYPE (RS), TYPE=B,- | 
OAC6 1916 <- 3 type 3; action 
QAC6 1917 <0 170$>,- ; No data, allow more calls 
AC6 1318 <1 10$>,- ; Single character 
AC6 191 > 
OADO 1920 3 
rt } 1 ; Default to burst data 
53 011C CS DO OADO 19 § MOVL UCBSL_TT_OUTADR(R5),R3 ; Get output buffer address 
52 0120 C5) «=63C ~=«(OADS §=61924 MOVZWL UE SoU TT LOUTLENCAS) Re ; and charcter count 
ie n+ 2 BRB 0$ 3 Continue in common path 
50 O14A C5 Q9E OADC 1927 108: MOVAB UCBSB_LT_MAXC(R5),RO ; Get address of maxc 
60 80 91 OQOAE1 19 3 CMPB (RO) +7 (RO) : Any room left ? 
Os 14 QAE4 19 BGTR 208 ; Br if yes 
6 97 OAE6 1950 DECB (RO) ; Make room for it 
60 96 OAE8 1931 208 INCB (RO) ; Update count 
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51 0 9A QAEA 19 3 MOVZBL (RO),R1 ; Get count | 
0 2h = AED 19 ADDL Ry .RO ; Form destination address 
60 3.6UC«@@s “4 13 : MOVB R3, (RO) 3; Load character 
AF3 19 § 3 We are setting up the address and count of buffered characters in 
AFS 1937; case we are balanced and we should send these characters in a msg 
oar 4 : to come out of balanced mode 
2g 0148 C5) 9A OAFS 1940 MOVZBL UCBS$B_LT_CURC(RS), a ; Get count of buffered characters 
5 014C C5) «=o SE =O(OAFB 1941 MOVAB UCB$B_LT_CBUF(RS), R > Get address of buffer 
ica tr ne Sh BT FCAGCRS) , 708 i *ronabintiee measeen | 
P ; unsolicited message 
GOEO 31 0802 194% 60S: BRY {30s | 
bB08 1308 ; Transmit data to concentrator 
0B05 1947 ; 
0146 CS 97 «0B05 1948 70$: ECB UCBSB_LT_TCRED(RS) ; Use a credit 
A 18 QB09 1949 BGEQ 90$ ; Br if we have one to use 
0146 CS 96 pane 1329 80$: INCB UCBSB_LT_TCRED(R5) : Else, no credits 
OBOF 1336 3 Woops. We find we have data and we can't send it anywhere since 
OBOF 1953 ; we have no credit. Never mind we can just leave here. We will 
pane 1954 ; receive a credit ei g eventually. We are set non-balanced here 
OBOF 1955 ; and if we leave so that all the int bits are turned off in the 
QBOF 1956 ; other ucbs, and this one, then we won't get anynere spberress *98 
OBOF 1957 ; startio calls. when we get the credit message we will start things 
OBOF 1958 ; up again. 
OBOF 1959 ; ; 
OOCE 31 OBOF 1960 BRW 180$ ; Leave quietly 
0B12 1961 
081 1906 ; Sag 
OB12 1963 ; We have nowhere to put the data and the circuit is down, so just 
4 1308 3 clear interrupt expected, discard the data and return 
00c4 31 0B! 1966 85$:  BRW 168$ ; Leave, flush data & clear INT expected 
56 34 A8 7E 0B15 1968 90S: MOVAQ CSB_Q_XBUFQ(R8),R6 ; Get transmit buffer queue address 
56 66 D1 0B19 1969 CMPL (R6), RO ; Is there a transmit buffer? ; 
ED 13 OBIC 1970 BEQL ; Br if no transmit buffer, ignore it 
5D AB =6001)0=— 90 «(OBIE §=1971 MOVB #1, CSB_B_NUM_SLOTS(R8) ; We have data for the server now 
082 13¢6 SETBIT #FLAG_V_RRF,- ; No more unsolicited messages 
08 197 CSB_6_FLAG(R8) : 
52 AB 02 B0 1974 MOVW #LATSC_HOST_TIMER, - ; Set retransmit timer 
8 B 1975 CSB_W-XMTTMO(R8) 3 
56 66 le) 8 1oe8 MOVL (R ; Get the buffer address 
50 014C C5 9 : 197 MOVAB ucesé LT_CBUF(R5), RO ; Address the UCB extension | 
50 53 01 1978 CMPL R3, RO :; Is that our buffer? 
04 «12 1979 we BNEG 106s : Br if no 
| ene i 
1981 ; Reading the code I noticed the following Line(s) would not work if 
19 § ; the startio entry were to discover that it were balanced after 
1983 ; previous previous calls stored data in the UCB extensions because 
1984 ; we were not balanced. I guess that never happens, because UCB$B_LT_CURC 
1 5 3 would not be equal to one, as assumed below, but some higher value. BEM 
0148 (5) 97 19 3; DECB UCB$B_LT_CURC(R5) ; Yes. Don't save the character there 
OB3C 1988 100$: 
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59 SOA 9E OB3C 1989 MOVAB XMT_T_MDATA(R6), RI ; Address of the slot to use (first) 
5A 0149 3 SA 8 19390 MOVZBL UCBSB-LT_SLOTSZ(R5), R10; Get the maximum slot size 
B4 1386 ASSUME SLT_B_DSTID EQ 0 
ete 199 ASSUME SLT_B_SRCID EQ <SLT_B_DSTID+1> 
B45 1994 ASSUME SLT_B_COUNT EQ <SLT_B SRCID+1> 
Bee 13e? ASSUME SLT-B-CRED EQ <SLT_B_COUNT+1> 
pete 1997 ASSUME UCBSB_LT_LOCID EQ UCB$B_LT_REMID+1 
89 0140 ¢5 BO 0B45 199, MOVW UCBSB_LT_REMID(R5), (R9)+ ; Load remote and local ids 
89 SA 90 45 $80 MOVB R10, TROT+ ; Save the character count 
ts it) ; Extend credits to concentrator if needed 
0147 C5 81 OB4D 2004 ADDB3 UCBS$B_LT_XCRED(RS),- ; See if we need to send 
50. (01 0851 2005 #LATSC_MAX_RCRED,RO 3 acredit to the remote 
0148 C5 «50 «680 =0B53 2006 ADDB RO,UCBSB_LT_RCRED(RS) =: Add them to total credits to send 
0147 C5 —s 550 8¢ 0858 2007 SUBB RO,U uLT_XCRED(RS)  ; Credits have been extended 
89 014865 90 0B5D 2008 MOVB UCBSB_LTRCRED(R5), (R9)+ ; Load credits | 
0148 CS) 94 paGe 098 CLRB UCB$B_LT_RCRED(R5) ; Don't send them again! | 
SA 3 D1 0B66 2011 110$: CMPL Rg R10 :; Do we have more than we can handle? 
03 1B 0B69 O1g BLEQU 1206S : Br if no, its just fine 
52 SA 00 O0B6B 201 MOVL R10, R2 3; Use just what we can handle 
-_ he. 2 pase 2015 1208: SUBL R2, R10 ; Adjust what we have left 
0B71 2016 ; Reading the code I noticed the following Line(s) would not work if 
0871 2017 ; the startio entry were to discover that it were balanced after 
0B71 2018 ; previous calls stored data in the UCB extensions because 
0B71 2019 ; we were not balanced. I guess that never Beppens. because R2 would 
p87 689 3 not reflect the UCB extension data area. BE 
011C C5 52 CO 0871 os¢ ADDL2 R2,UCBSL_TT_OUTADR(RS) ; Update UCB state 
0120 C5 52 A2 0B76 20 SUBW2 R2,UCBSW_TT_OUTLEN(R5) ; Update UCB state 
55 OD OB7B 2024 PUSH R ; Save the UCB address 
69 63 52 28 0OB7D soso MOVC R2,(R3),(R9) : Copy the strin 
55 8ED0 par! 2026 POPL ; Restore the UCB address” 
-) > en 84 2027 MOVL R3,R9 : Set address of next available byte 
5A 6DS «(0B87 «2028 TSTL = R10 : Do we have any left? 
28 13 0889 2029 BEQL 155$ ; Br if no, all done. ; 
010C D5 1g 0B8B 2030 JSB OYESSL TT _GETHRT CRS) : Else, call back class driver for more 
19 13 OB8F 2031 BEQL 150$ : Br if no more to be ha | 
oc «(14 94 O38 BGTR 1408 ; Br is single character 
93 20 3 
0893 bee : Found a burst of data 
53 011C C5 0 0B9 034 MOVL UCBSL_TT_OUTADR(R5),R3 ; Get output buffer address 
52 0120 C5 C 0898 20 MOVZWL UCBSW-TT-OUTLEN(R5),R2 ; and charcter count 
cr 8% 943 038 BRB 110$ ; Else buffer address 
9F 2039 
oF 40 1408: ; 2 
of rt : Found a sinxle character 
52 9% DO oF 7g MOVL #1, R2 ; Else, just one character returned 
69 3 0 «90 aM 44 MOVB R3, (R9) 3: and fake many chars returned 
53 59 00 A 045 MOVL R9, R3 ; Copy buffer address 
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and continue 


no output data available 


; Make the Length of the data to 
; Round end address of data 


; Store it in the CxB 

; Make total characters in slot 
; minus those already accounted for 

; beyond the circuit and slot headers 
; Store that count away. 
; In the first slot maxc 


; Move the circ header 
: to look at real msg 
; number of valid slots 


have some, skip check 


Past circuit header 
yes, Okay 
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UCBSL_STS(R5);ALlow more start io calls (checked) 


: Brit yes a Etrewte header? 


Not correct 


CSB address for call 
Transmit the buffer 


; Flush the output data 


Allow more calls here 


LTDRIVER = Local Ar 
ra tt LTESTARTIO - Start 1/0 routine -SEP-1984 
BC 11 BA8 ‘8 BRB 110$ ; 
BAA 4 
64 AS 02 AA QBAA 48 150$: BICW #UCBSM_INT 
01 BA OBA 49 BICB #UCBSM“LT_BATA,- : 
142 c5 BBO 2050 ay cBSgat DATAW(RS) 
52 00000048 8F C2 OBB 26 SUBL WXiT T/DATA, R2 3 _transmit 
59 D6 OBB 05 INCL 9 3 
59 9 CA OBC 054 BICL #1,R9 ; 
1c ag 9 0g pee 055 MOVL Rg. CxeSt 7 ata ; 
5 0c C BC B28 SUBL W<<XMT MBAT 5 
OBCA 09 XMT T DATA > " - : 
BCA 2058 SLT-T~DATA> : 
52 a6 652)0—o90s«OBCA «2059 MOVB R2,~<SLT_B tote ; 
OBCE 2060 XMT_T *RDATRS (ROD : 
OBCE 2061 
OBCE O66 ~IF DEFINED LT_XMT_CHECK 
OBCE 06 3 
OBCE 2064 3; debug code 
OBCE 2065 : 
OBCE 066 MOVaQ cs. T_CIRCHDR(R8) ,- 
OBCE 2067 T-T_DATA(R6) 
OBCE 068 MOVZBL NAT “B-  NUM_SLOTS(R6), R1 
OBCE 2069 BNEQ 1608 | we 
OBCE 2070 ; No slots - we must only have a circuit header! 
OBCE 071 OVAB XRT T_MDATA(R6), RO 
OBCE 143 CMPL RO, R9 
OBCE 207 BEQL 1668 
OBCE 074 DEBUG 
OBCE 2075 
OBCE 076 -ENDC 3; DEFINED LT_XMT_CHECK 
OBCE 077 
54 DO OBCE 2078 160$: MOVL 3 
0693 30 0BD1 2079 BSBW PoE n ; 
0760 8F BA OBD4 2080 POPR Lmene. a R8,R9,R10> 
05 OBD8 2081 RSB 
OBD9 Ong 
OBD9 2083 168%: ; 
$802 Bae ; Discard output data, no session active ! 
004D 30 O0BD9 2086 BSBW = LTSFLUSH_DATA : 
OBDC 2087 
OBDC 2088 170$: =; : 
43 888 ; Allow more calls to startio 
64 A5 O02 AA DC 091 Bicw #UCBSA INT : 
E 09¢ L_STS(RS) : 
0760 8F BA OBEO 2093 180$:  POPR ith R6, Re R9,R10> 
05 beee 94 RSB 
OBES 5096 
OBE 099 3 Not balanced, so buffer data if we can. 
OBE 4 : = coun 
E 99 ; R3 => data 
ae 
54 014C C5—so9E E5 102 190$: MOVAB UCBSB_LT_CBUF(R5), R4 : 


; Address of character buffer 


LTDRIVER - Local Area Terminal Port Driver 16-SEP-1984 01:46:4 AX/VMS Macro V04-00 Page 50 
viral titi CTESTARTIO - Start 1/0 routine eet 1:4 a HAT SRCILTDRIVER.MAR; 1 ° 38) 
54 3 o BEA 2103 CMPL BF R4 3 Js shis the sherecter buffer? 
13 OBED 2104 BEQL «6-210 : f ures. check if its full 
50 0148 9A OBEF 2105 MOVZBL UCBSB_LT_CURC(R5), RO ; Fotaul ate amount of room 
5 Be BF4 21 § CLRL R1 3; left in the output buffer 
pellet ad bees ere i — Reese LT_MAXC(RS) : wont 
52. 51 01 OBFC 21 § CMPL Ri, R2 ~ : Do we have room? 
DF 15 OBFF 2110 BLEQ 180$ : Br if no, so shut output off 
120 ¢S) B4 col 111 CLRW ee TT_OUTLEN(R5) ; Else, forget about the data here. 
0148 C5 2 80 C05 16 ADDB2 R PEBSB_LT CURE (RS) 3 Calculate the number of chars 
64 E COA 113 pa MOVAB (R4)CROJ,7R1 ; and get address to put them 
55 OD OcoE 115 "PUSH R5 ; Save the UCB address 
61 63 2 28 0C1 116 MOVC Rg (RS). C1) 3; Copy the ptring 
55 8ED0 bel a4 POPL R 3; Restore the UCB address 
O14A C5 0148 CS 91 pele 1% 210$: CMPB itt +t “ANE CRED 3; Is buffer full? 
CO 18 OCIE 131 BGEQ 180$ ~ :; Br if yes, shut off output 
010C D5) = 16 ocSe 1 ¢ JSB @UCBSL_TT_GETNXT(R5) ; Else, get more data 
13 0C24 212 BEQL 170$ 3; No more data, so lost return 
FE9D «= 31 ocSs $ise BRW 5$ ; Else, process data 
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tus rR 


oo, 


R3 is destroyed. 


: ~SBTTL LTSFLUSH_DATA = Flush buffered output data and drain TT buffer 

; LTSFLUSH_DATA = Flush buffered output data and drain class driver buffer 

: Functional description: 

; Flush buffered output data and drain class driver output buffer. 
: Inputs: 
: RS = UCB address 
; Outputs: 


| 

| 

LTSFLUSH DATA: | 
0$: ; Call back for more to class driver | 
| 
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OouUI— MIO OOWOOOOOOOOOOOOOOO | - 


PARRA SWI 


a a kk kk dd 
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010C DS 1 JSB @UCBSL_TT_GETNXT(R5) : 

-  s BEQL 90$ ; Br if no more to be ha 

FB st BRB 20$ ; Else, drain all output data 
0120 (5S =B4 90$: CLRW UCBSW_TT_OUTLEN(R5) ; Clear CLASS driver output data 
0148 C5 be hs UCB$B_LT_CURC(R5) ; Dump UCB output buffering 


‘ | 
LIDRIVER ocal Area Terminal P ort Dr ive 16-SEP- 19 4 AX/VMS Ma 4- LTDF 
Vee 008 [TEABORT © Abort Cilush) buffered outpu Saepe1oee f1scbios HORT ec Te ep RrVcR aar:1 P89 88, v04- 
f : ! 0 aes -SBTTL LTSABORT = Abort (flush) buffered output data 
C A : LTSABORT = Abort buffered output data 
c A 4 Functional description: 
C A 136 ; Abort (flush) buffered output data 
OC3A 138 : Inputs: 
: . 123 : RS = UCB address 
C3A 2161 ; Outputs: 
CHA $169 , 
Besa Sten 
0148 (5 94 6 A 18% waemeet, UCBS$B_LT_CURC(R5) 
ul ; Dump UCB bufferi 
0120 CS B4 acts 189 CLRW UCBSU-TT™ OUTLEN(RS) 3 Dump pending class driver date. 
$ mignt ha 
04 88 bce 19? BISB #UCBSM_LT_ABORT,- ; Abor Rime I+ eerste igs 
0142 C5 C44 170 UCBS$B_ LT “DA ATAW(RS) 
05 0C47 171 RSB 
0C48 126 
0C48 17 
geek gif 
0C48 2176 -SBTTL LTS$FLOW_CHAN - Ch 
Oc48 127 _ CHANGE Change flow control 
Oc48 179 : LT$FLOW_CHANGE 
0C48 2181 ; Function: Inform terminal server of fhenge in host flow control. | 
0C48 136 3 The terminal server will mimic host policy. 
re ie : Inputs 
: uts: 
ocee 18 : R5 = UCB address 
0C48 2187 : Outputs: 
0C48 2188 ; 
bce8 5190 ° 
02 88 oeee 193 Aor, “bso. #UCBSM_LT_FLOW, FL h 
0142 C5 OCA 198 UCB$B-LT~DATAW (RS) ea 
C4D 194 RSB 
OC4E 2195 


vaneat irbtet! 28844 
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-SBTTL LTS$XON = Resume input stream into class driver 


3* 

; LTSXON = Resume input stream into class driver 
R3 = XON character 
R5 = UCB address 

Outputs: 
R3 is destroyed 


i TSXON: 

PUSHR #*M<RO,R1,R11,AP> ; Save registers 

CLRBIT #UCBSV_LT_OVFLOW,- ; Clear overflow indicator 
CB$B_LT_LATSTS(R5) 


1803 8F 8B 


U 
50 ©013¢ ¢5 00 MOVL CBSL_CT_INPBUF(RS),RO ; Get address of input buffer 
3A BEQL ; Br if none, nothing to do 
0147 (5 96 INCB UCBSB_LT_XCRED(RS5) ; Okay to return credit now 
-1F DEFINED LT_CRED_CHECK 
BLEQ 10$ ; Br if okay 
108 DEBUG ; Else, we went too far 
.ENDC = s;,: DEFINED LT_CRED_CHECK 
ASSUME UCBSB_LT_LATSTS EQ UCBSB_LT_DATAW+1 
1001 8F BISwW #<UCBSM_LT_INPUT@8>!UCBSM_LT_DATA,- ; Data potentially available 
0142 C5 UCB$B_CT_BATAW(R ;”_ and INPUT stream in enabled 
AS 02 8 BISB #UCBSM-INT,UCBSL_STS(RS); Force no data to be returned 
5C 02 AO C MOVZWL INB_W_BCNT(RO) ,AP ; Get count of bytes peqeining 
5B 60 3 MOVZWL =INB_W BOFF(RO),R11 ; Get offset to start of input data 
5B 2650 = =O ADDL RO,RIT ; Calculate address of input data 
; Feed remaining data into class driver 
53. 8B 9A 30$: MOVZBL (R11)+,R3 ; Get next character ; 
0110 D5 =16 JSB @UCBSL_TT_PUTNXT(R5) ; Pass character to class driver 
Oe EO BBS #UCBSV_LT_OVFLOW,- ; Br if overflow, wait for next XON 
OF 0143 C€ UCBSB_LT_LATSTS(R5) ,50$ 
FO SCF‘ SOBGTR AP ; Loop if more 
50 013c C5 0° MOVL UCBSL_LT_INPBUF(R5),RO : Get input bufter address 
OF 19 3 BSBW LTSDEALPOO 3 Deallocate the input buffer 
013C ¢ D4 CLRL UCBSL_LT_INPBUF (R5) ; Zero input buffer pointer 
10 «BA 50$: BICB #UCBSA_LT_INPUT,- : Input stream is now disabled 
0143 ¢5 UCBSB-LT“LATSTS(R5) 
1803 8F BA 70$: POPR #*M<RO,R1,R11,AP> ; Restore registers 


-SBTTL LTSXOFF = Stop input stream into class driver 


++ 
LTSXOFF = Stop input stream into class driver 


; Inputs: 
R3 = XOFF character (*S or *G) 
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ba tt LTSXOFF = Stop input stream into class ~3Fe= 1382 tri fe LEAT SRCICTDRIVER MAR: 1 ° 38) v04- 
C9E 4; R5 = UCB address 
C9E 78 AP = count of bytes remaining 
C9E § : R11 = address of input data 
C9E at § 
COE 28 ; Implicit inputs: 
OCs $9 3 UCBSV_LT_INPUT bit must be on UCB$B_LT_LATSTS status byte. 
OC9E $¢ ; Outputs: 
OC9E 635 ; R3 is destroyed 
OC9E 64 ; 
4943 65 ;-- 
C9E 66 LTSXOFF: 
32 BB O0C9 67 PUSH #*M<RO,R1,R2,R4,R5> ; Save registers 
07 3 91 OCA 68 CMPB R3,#TTY_C_BELL : Is this a control_G? 
44 13 OCA 69 BEQL §«=s«90$ ; Br if yes, do nothing 
04 €1 OCAS 70 BBC #UCBSV_LT_INPUT ; Br if input stream not enabled 
3E 0143 C5 OCA? 2271 UCBSB“LT“LATSTS(R5) ,90$ 
01 5C D1 OCAB ae CMPL AP, #1 ; Any data to buffer? (counting current) 
3915 OCAE 7 BLEQ $ ; Br if no, skip i 
5C 07 OCB 74 DECL AP ; Else, account for character just passed 
pees 75 SETBIT #UCBSV_ LY =OyFL OY .* ; Set overflow indicator 
0cB 76 UCB$B-LT-LATSTS(R5) 
52 013¢ cS) DO OCBB 77 MOVL CBSL ct TINPBUF (R5) ,R2 ; Get input buffer 
16 12 OCBD 78 BNEQ are ; Br if one there 
a Te es a 4s ADDL3 #INB_C_LENGTH,AP,R1 : Else, calculate length of buffer 
00000000'GF 16 OCC3 § 80 JSB G“EXESALONONPAGED : Allocate a buffer 
10 50 €9 OCC9 281 BLBC Ro" 90$ ; Br if no buffer 
013¢c cS) 0 —552.—téi«‘éidsCé#—OOC $$e¢ MOVL Ree UCase. -LT_INPBUF(RS) ; Save address of input buffer 
08 A2 51 BO OCD1 228 MOVW INB_W SIZE(RE) ; Set size of input buffer 
OCDS 2284 30$: ASSUME Fné 8 SP TRE EQ YPE+] 
OA A2 13 9B OCDS 2285 MOVZBW POVASe -BUF IO NB ‘B- =TPE CR2) i Set structure type 
02 A2 5C BO OCD9 2286 MOVW  AP,INB~W BCNT(R2 ize of remaining string | 
62 OC B60 BCDB $5er MOVW #INB_C"LENGTH, INB_W _porriney. ; ‘Set offset to start of Crete 
OCEO 2289 3; Don't return credit... wait for XON 
OCEO $530 : A 
0147 C5 97 peey $$9) DECB UCBSB_LT_XCRED(RS5) ; Don't return credit 
OCE4 2298 .1F DEFINED LT_CRED_CHECK 
OCE4 94 CMPB UCB$B_CT_XCRED(RS),- ; Did we goof? 
OCE4 $32 ett t Tmax RCRED 
OCE4 96 BGEQU 10$ ; Br if okay 
gcee 97 DEBUG ; Else, we went too far 
CE4 98 10$: 
pees + ~ENDC 3; DEFINED LT_CRED_CHECK 
OC A2 6B 5C ores $0) MOVC3S AP,(R11),INB_C C LEWSTHCR2) Copy the data 
37, BA OCE9 0¢ 90$: POPR #*M<RO,R1,R27RZ,R hestore registers 
gee Sebz RSB + Return to caller 
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Interface Receive moet oe :22 PEAT SRCICTDRIVER MAR: 1 ° (40) 


ade -SBTTL LTSFFI_LRCV_MSG = FAST Interface Receive Complete routine 
: LTSFFI_RCV_MSG = FAST Interface Receive Complete routine 
Functional description: 


>s 
“ow 
—-_— 


Each time a frame is received, the data is passed to the class driver 
for each terminal represented within the frame. Echoed data is soojed 
into a frame to be transmitted back to the concentrator, and finally 
the transmit frame is queued for transmission after appropriate 
virtual circuit maintenance functions are performed. 


Inputs: 


R3 = CXB address 
R4 = FFI address 


IPL = SYNCH 
Outputs: 
R1-R5 are preserved. 
The interrupt is dismissed when the received frame 


has been compeletely processed. The CXB is always 
returned to the datalink driver. 


LATSC_IPL EQ IPL$_SYNCH 
#*M<R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,AP,FP> ; Save registers 


MOVZWL CXBSW_BOFF(R3),R6 ; Get offset to start of data 
ADDL R3,R6 ; Get pointer to start of data 


-I1F DEFINED LT_HISTORY 
; Save history of receives 
MOVAB RCV_B_FLAG(R6), RO ; Address is circuit header 
BSBW LTSAISTORY 3 Store the data 
-ENDC ;; DEFINED LT_HISTORY 
INC_CTR GHBSL_RCOUNT+GHB_AREA =; Count frame 
Validate received frame 
MOVZWL acy W_DSTID(R6) ,RO ; Get remote vci 
BNEQ 1208 Got index, okay 


; Go 
CMPB #<MTYP_C_START@FLAG_V_MTYPE>!=- ; Is this a start message? 
FLAG_M- MASTER 
RCV 
91$ 


ASSUME 
LTSFFI_RCV_MSG: 
PUSHR 


B_FLAG(RGS 


BNEQ 


; START message received on an inactive circuit, try to start up a 
s mew circuit. 


; Br if no, signal protocol error 
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v04- LTSFFI_LRCV_MSG = FAST Interface Receive -SEP-1984 11:40:22 CLAT.SRCILTDRIVER.MAR;1 (40) | 
D1 63 ; 
F4OA CF OD D1 64 TSTL HBSL_UCB+GHB_AREA ; Data Link UCB still here? 
oF] D1 65 BEQL ; No, then don't accept circuit 
04 A B D1 96 TSTW RCV_W_SRCID(R6) ; Is the source ID zero? 
3 1 D1B 6 BEQL 96$ ; Br if yes, protocol error 
06 A6 «695 «(0D1D 68 TSTB RCV_B_SEQ(R6) ; Is this the correct sequenced msg? 
; 1s D § BNEQ 97$ ; Br if not, protocol error 
85 3 D 0 BSBW Li Suey CIRCUIT ; Initialize and/or allocate CSB 
1050 €8 OD 71 BLBS RO, 198 i Go ahead, CSB address in R8 
Bb a ; startup any transmits wetting | 
50 od5 OD 7 TSTL 3; Are we ignoring a duplicate start msg? 
40 12 80 A 2374 BNE 100$ ; Br if yes, just retransmit start msg 
D2c 75 INC_CTR GHBSL_RESOURCE+GHB_AREA ; Else, no €s6 to use 
2F. 11 90 6 4 BRB 99$ ; So just ignore it 
0085 = =s«331 o038 4 19$: BRW 190$ ; Long branch 
5D 00 9A O38 80 91$: MOVZBL #GHBSV_START,FP : Invalid START message received 
17 11 «OD3E 2381 BRB > continue 
5D 02 9A 0049 8¢ 93$:  MOVZBL #GHBSV_CSBRANGE,FP ; Bad range on CSB index | 
1 11 QD4 : BRB : continue | 
5D 600 9A ee 4 94$: MOVZBL #GHBSV_CSBINVALID,FP : Invalid CSB index 
OD 11 0D48 2385 BRB > continue 
5D 04 9A OQD4A 2386 958: MOVZBL #GHBS$V_CSBSTALE FP ; Stale CSB index 
08 11 OD4D 2387 BRB 3 continue 
50 68 ° 44 M43 96$: poy eet. #GHBOV_INVALIDREMID,FP ; pee y be remote circuit id | 
3 continue 
5D OA 9A 0054 2390 97S: MOVZBL #GHBSV_INVALIDSEQ,FP : Invalid sequence number 
0D57 2391 ;:; BRB 98$ ; continue | 
0057 39¢ $8$: § SETBIT FP,GHBSL_PROTOMASK*+GHB_AREA ; Set bit mask | 
OD5D 239 INC CTR GHBS$L_PROTOCOL+GHB_AREA_; Increment counter : 
SFFE 8F BA 0067 2394 99S: POPR #*M<RT,R2,R3,R4,R5,RO,R7,RB,RI,R10,R11,AP,FP> ; Restore registers | 
05 OD6B 2395 RSB : Return to caller 
ae | 
443 44 : A duplicate frame was received 
OD6C 2400 1008: INC_CTR GHBSL_DUPLMSG+GHB_AREA ; We received a duplicate message | 
0076 2401 INC_CTR GHB$L_RETRANS+GHB_AREA ; We are retransmitting a message 
O4AE 31 O0D8 tk BRwW LTSREPLY_REXMIT ; This data is stale, resend buffers | 
be 404 : 
0D8 405 ; Non-zero circuit ID ! F | 
pos £86 ; - circuit must be active already 
44 408 ; Inputs: 7 = CSB index 
D 409 ; R35 = CXB address 
D 410 ; R6 = Pointer to start of data 
DBs Saye | | 
5t 50 9A OD 41 120s: MOVZBL RO,R1 3; Get CSB index 
20 51 D1 OD86 2414 CMPL R1, #LATSC_MAX_CSBS ; Range check 
BS 14 QD89 2415 BGTR § ; Br if bad range. protocol error 
58 F2A4 CF41 09 D , 21$ MOVL GHB_L_CSBTABLE~4(R1],R8 ; Get CSB address 
86 1 D 4) BEQL 94$ ; Br if invalid CSB, protocol error 
60 A8 B1 44) $18 CMPW RO, CSB_W_LOCID(R8) ; Valid reference ? 
12 0097 241 BNEQ © 95 : Br if no, Stale reference to CSB 
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G = FAST Interface Receive SEP=19 1:40:22 (CLAT.SRCILTORIVER.MAR; 1 
: 9 INC_CTR CSB_Z_LCB+LCB_L_MSG_RCV(R8) ; Count one more rcvd msg 
: 4 : Check ACK number and complete any transmits acknowledged 
424 130$:  MOVZBL RCV.B B_ACK(R6), R3 ; Get the ack from the message 
425 MOVB “c$B ef Cn ; 
4 6 SUBB 86.6 xSEQ( ; Set up the normallized a 
4 MOVAQ (CSB-Q O-KWAITOCRO) ; Look through the wait A. tor it 
‘ 8 MOVL R2, RT : 
430 140$: MOVL (R1),_R1 : Next ie b- queue 
431 150$: CMPL Ri, R2 : End of q 
4 ¢ BEQL 196$ ; Done with: that search 
4 SUBB3 CSB_B_XSEQ(R8), - ; Normallize the seq of message 
? : ahaha ° 3 
436 CMPB RO, R3 : If the seq is greater than ack, 
437 BGTR 146$ 3 wait on another ack 
438 MOVL (R1), R4 ; Save Link to next item 
439 REMQUE (R1), R1 ; Remove acked message from wait queue 
440 INSQUE + ghee - ; And insert on tail of transmit queue 
441 aCSB_Q XBUFQ+4(R8) ; 
44 DECB CSB_B_XMTCNT(R8) ; One less to transmit 
44 MOVL R4, RT ; Restore Link 
444 BRB 1568 ; 
445 170$: : 
rr. : Invalid sequence number received 
448 iNC CTR CSB_Z_LCB+LCB_W_SEQ ae W ; Bad sequence number 
449 BR B8~ 1008 ~ also’ count as duplicate 
450 180$: 
$3) ; No transmit buffer available 
483 INC_CTR GHBSL_NOXBFR+GHB_AREA =; Not transmit buffer available 
$23 BRwW 99$ : And exit 
42 ; Make sure that we have a transmit buffer to respond with 
458 190$: MOvaa CSB_Q_ XBUFQ(R8), R2 ; Look to see if we have at least one 
459 CMPL Re (R2) 3 transmit buffer ; 
ret BEQL 186s ; Br if None, just retransmit and wait 
re MOVW CSB_W_TIMRESET(R8),- : agset timer for timeout of circuit 
46 CSB_W_TIMEOUT(R8) inc we got a valid message. 
464 CMPB ety B_SEQ(R6),CSB_B -ASEGiRB) “igh sequence number ? 
ree BNEQ 1708 : rit no, retransmit all messages 
16? 
488 ; Dispatch on message type 
any Inputs: 
er¢ : 
473 ; R8 = CSB address 
fs 3 R6 = CXB address 
476 INCB CSB_B_RSEQ(R8) ; Next time it's the next number 
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VvO4 LTSFFI_RCV_MSG = FAST baeerfece "Receive “SEP=1984 11:40: tear. SRCILTDRIVER.MAR; 1 (40) | 
63 AB 06 ag E08 2477 MOVB RCV_B B.SEQ(RG) .CSB_R R_HACK (RS) i Tell other guy we got this one 
344 $78 EXTZV gELKG. V_MTYPE,- ; Obtain the message type 
6 EQF 247 FLAG_S_MTYPE,= 
50 66 3 4 0 RCW _B- “PCAGCRES, RO 
1 4 ¢ SDISPATCH we TPES.< 3; Dispatch on message type 
€1 4 <- s TB _¢ ;_action 
E1 484 <MTY uN LT$RCV_RUN Anse ; RUN message received 
Ele 2485 <MTYPTCSTART  LTSRCV7START_MSG>,- ; START message received 
e $ , <MTYP_C_HALT LTSRCV_HALT_MSG>,= ; HALT message received 
E1C 246 
tate 4 5 33 BRB LTSFORCE_HALT ; ALL others, force halt 
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-SBTTL PROCESS RECEIVED MESSAGE 


Us 


wv 
z 
or 
oo 
moa 
o74 


Other guy is halted or all screwed up 


LTSFORCE_HALT: ; receive halt msg 
: invalid circuit state in ms 
; invalid circuit state in CS 


j poet 16 local vec 
SETBIT #GHBSV_HALT 
GHBSL “PROTOMASK+GHB AREA ; Circuit forced to halted 
INC_CTR GHBSL ~PROTOCOL+GHB_AREA ; “Increment protocol error counter 
LTSSTATE_HALT: 
BSBw 


LT$ ; Circuit is dead now 
BRW LT$ 


CIRCDEAD 
TSREPLY_REXMIT ; Transmit halt message 
++ 


Other system is halted 


LTSRCV_HALT_MSG: 
BSBQ 


08BC LTSCIRCDEAD 3 ress. is dead now 
O3F4 BRW LTSREPLY_DONE ; ALL don 
p++ 
: Other guy is starting up 
LTSRCV_START_MSG: 
co; state CSB_B_ STATE(R8), wee. ~ ; Dispatch on our CSB state 
s 
<CSB_C_STATE_HALT LTS$STATE_START>,- ; Enter the START state 
<CSB_C"STATE_START CTSREP PLY-MSG>,- ; *"Re-send START message 
<CSB_ C"STATE_RUN LTSSTATE_ “HALT>, - ; Enter the HALTED state 
ae BRB LTSFORCE_HALT ; What kind of kinky state is this ? 


te 
Other guy is running 
LTSRCV_RUN_MSG: 
SDISPATCH CSB_B_STATE(R8), TYPE= B.- ; Dispatch on our CSB state 


state action — 
<c§B C_STATE_HALT iTSREPLY _MSG>,- ; Send STOP message 


a 
S 
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<CSB_C_STA 
<CSB>CUST ATES 


LTSFORCE_HALT 


——" 


"SrSEb= SBS 91:28:33 UCATYSRCHEDRIVERRan:1 P88" # 


LTSSTATE_ENTER_RUN>,- ; Enter RUN state 
LTSSTAT =RUN>, =; Stay’ in RUN state 


; What kind of kinky state is this ? 
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LTDRIVER - Local Area Terminal Port Driver 16-SEP-1984 01:46:44 VAX/VMS Macro V04-00 Page 61. 
yee 000 CIRCUIT STATE TRANSITIONS mai iaets 1 Oi 7:22 CLAT.SRCILTORIVER.MAR; 1 . (2) 
£2 226 " ~SBTTL CIRCUIT STATE TRANSITIONS 
E ; 3 
: H 3; We can go only from halted to starting 
E5 335 3-- 
E 560 
E 561 LTSSTATE_START: 
01 90 OE 266 Mov #CSB_C_SIATE oe 3 
OB A8 0E54 256 CSB_B_STATE(R8) ; Now we are starting 
06 90 BE 26 564 MOVB #MTYP-C_START@FLAG_V_MTYPE,- ; Set the start message type 
5C A8 BE? 565 CSB_B_FCAG(R8) 3 
04 A6 BO OE5A 366 MOVW  RCVIWISRCID(R6).- ; | 
5E A&B OESD 256 CSB_W_REMID(R8) ; Save his circuit id 
59 34 A8 DO OESF 2568 MOVL CSB_Q_XBUFQ(R8) ,R9 ; Format a start message 
50 F585 CF 3 0E63 2569 MOVA GHB_T_STRT_MSG,RO ; Get start address of template data | 
60 F57E CF 28 QE68 2570 MOVC GHB_W_STRT_LEN,(RO),- ; Copy the start message | 
50 A9 OE6D 2571 XMT_T_MDATA(R9) 
1¢ AD = =—53)=— 0 s«éO EGF 258 MOVL R3, CXBSL_T_ENDADR(R9) ; Store end address of data 
0380 31 OE73 257 BRW LT$REPLY_ALT ; Go send the reply message 
0E76 2574 
0E76 2575 ;++ 
0E76 ef6 : : . 
bee arf ; We transit to the running state only from the starting state 
0E76 2579 ;-- 
0E76 2580 
0E76 2581 LTSSTATE_ENTER_RUN: ; Enter the RUNNING state 
02 90 OE76 28 Move #CSB_C_STATE_RUN,=- ; Now we are running 
0B A8 0E78 258 CSB_B_STATE( 
00 90 OE7A 2584 MOVB #MTYP"C_RUN@FLAG_V_MTYPE,- ; Set the run message type 
5C AB OE7C 2585 CSB_B-FCAG(R8) 
OE7E 2586 
QE7E 2587 ;++ 
QE7E 2588 ; ' 
OE7E 2589 ; Update state from validated frame 
OE7E 2590 ; 
OE7E 2591 ;-- 
OE7E 236 
OE7E 593 LTSSTATE_RUN: 
04 AG «Bl OEZE = 2594 CMPu RCV_W_SRCID(R6),- : Referencing a valid circuit? 
5E A8 pest 595 CSB_W_REMID(R8) ‘ 
97 12 OE83 2596 BNEQ LTSFORCE HALT : Br if not, force a halt 
59 34 a8 00 pees 444 MOVL CSB_Q_XBOFQ(R8) ,R9 ; Get transmit buffer address 
oes 2Re ; Set up for the receive loop 
ESS 601 CLRBIT #FLAG_V_RRF,=- 3; No response requested until 
E89 60¢ CSB_B-FCAG(R8) : accredit is used | 
5D AB 94 34) 68 CLRB CSB_B_NUM_SLOTS(R8) ; Assume no output data (balanced) 
52 AB «BS O(OED 604 CLRW CSB-W"XMTTMOC(R8) ; Circuit state is no longer timed 
57 9 A6 SE BERR 605 MOVAB SEV A TAtRS: oR? ; Receive buffer first slot address 
59 0 A9 9E 0E98 ons VAB  XMT_T_MDATA(RY) ,RI ; Transmit buffer first slot address 
SA 6A AB 3c Eg 60 MOVZWL CSB7W"MAX_MSGSI2(R8),R10'; Total chars available to slots | 
5p 01 AG 9A OEA 608 MOVZBL RCV-B"NUM“SLOTS(R6),FP ; Get slot Loop count | 
0 12 OEA4 2609 NEQ SLOT_COOP~IN ; Got some input data 
O16E 31 OEA6 2610 BRW SLOT_LOOP_OUT ; Go process output buffer 
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-SBTTL PROCESS RECEIVED SLOT DATA 
PROCESS RECEIVED SLOT DATA 


AAO 


IN AIAN AIOROPOROPONOPORONON see st 


Functional description: 
Now we are set up to pass data to and from the class driver: 
The following loop copies data from the receive buffer into the class 


>rrrrrrrrrrrrrrr rrr rrrY 
WOOOOOOOOOOOOOOOOOOOOO DP 


e 
E 
3 
4; 
73 
6 2 : 
6 ; : 
0 
622 ; driver. 
T52 | inoue | 
; Inputs: 
Tog | Heputes as scatlente | 
6 § 5 R5 = UCB address 
627 ; R6 = CXB address 
6 8 : R7 = current receive buffer slot address 
629 ; e8 = CSB address 
6350 ; R9 = current transmit buffer slot address 
631 ; R10 = transmit buffer bytes left 
6 ¢ 3 R11 = scratch (used as current input slot character copy base register) 
633 ; AP = scratch (used as loop count register) 
‘AS oR? 3 FP = number of slots to process in received message 
OEA9 O36 : Outputs: | 
BS Se tone 
OEA9 2639: We continue by processing the output siot Loop. 
‘MEoE 
OEA9 64¢ . -ENABLE LOCAL_BLOCK 
QEA9 2645 SLOT_LOOP_ IN: ; Input data slot loop 
51 67 QA QEA9 2644 MOVZBL SLT_B_DSTID(R7),R1 i Is this slot alive ? 
40 12 QEAC 2645 BNEQ : Br if possible : 
01 A? 95 OEAE 2646 TSTB SLT_B_SRCID(R7) : Is the remote index valid? 
38 O13 pees rot BEQL 10$ :; Br if not, ignore slot 
OEBS 2649 ; Zero local slot index with non-zero remote (someone's attempting 
ase $29 : to login). Must be a start slot! | 
04 04 EF OEB 63¢ EXTZV #4,#4,SLT_B_CRED(R7),RO ; Get slot type | 
50 09 91 OFB9 265 CMPB ss #SLT_C_STR_SLOT,RO : Is this a start slot ? 
5A 13 OEBC 2654 BNEQ LOOP~ ABORT ; Br if not, ignore slot 
0651 30 OEBE 2655 BSBW = LTSACC_UCB : Try to allocate an LT UCB 
27 50 =«EB 39) $36 BLBS RO, 1 ; Br if success 
EC4 365 INC_CTR GHBSL_RESOURCE+GHB_AREA : Else, no UCB for us to use | 
ECE 639 : Send back a reject slot in the case of resource errors 
ECE 2661 ASSUME SLT_S_REJ_SLOTEI EQ 1 ; Assume we need rounding 
06 SA O01 sce 666 CMPL R10,- ; Enough room for REJECT slot header? 
EDI 266 #Stf_S_REJ_SLOT#! | 
1 19 QED1 2664 BLSS 1 ; Nope, just ignore the data 
5D A 96 OED3 2665 INCB CSB_B_NUM_SLOTS(R8) : Increment slot count | 
O1A 90 OED6 266 MOVB SLT-B-SRCID(R7),(R9)+ =; Copy local id from receive message 
9 94 OEDA 266 CLRB (ROT+ : Tell him we are not here ! 
89 if 90 GEDC 266 MOVB #SLT_S_REJ_LEN, (R9)+ ; Load slot byte count 
CO BF 90 OEDF 266 MOVB #SLTTCTREJ“SLOfA4,(R9) : Load REJECT slot format 
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| 
89 05 88 OQEE3 2670 BISB WSLT_C po sounce (R9)+ |; Load reason code (resource error) 
EE6 2671 ASSUME SLT_S_REJ_SLOTe1 EQ 1 |; Assume we need rounding 
69 9% EES of¢ CLRB 9T+ ; Round up to even boundary 
Sa 6 2 OEE 67 SUBL2 #SLT_S_REJ_SLOT+1,R10 ; Adjust bytes left for other slots 
OOEC 1 eee ore 198: BRwW NEXT-SCOT ; Just process the next slot. 
443 o78 ; Validate UCB reference = non-zero local index 
69 A8 >. EEE 44 ¢mPB R1, CSB_B_MAX_SLOTS(R8) ; Do a ronge check on the local index 
8 1A OEF 67 BGTRU 9 ; Br if not in range 
55 68 A841 00 EF4 2680 MOVL CSB _L UCBLST~4(RB)CR13,R5 ; Get UCB address | 
2p 1 pete 681 BGEQ 0$ ;_That slot doesn't Live here anymore 
0140 CS OTA 91 OEFB 26 ¢ CMPB SLT_B_SRCID(R7) ,UCBSB_LT_REMID(RS) ; Valid remote reference? 
13 OFO1 26 BEQL LOAB_CREDITS ; Br if yes, process slot 
01 A?) 95) «(OFS «2684 TSTB SLT_B_SRCID(R7) ; Else, are we hanging up from remote? | 
10 12 OF oe eH BNEQ LOOP_ABORT ; Br if no, invalid slot 
OF 08 $87 ; Received a zero in the slot source-id - is this a stop slot? 
50 O3 A? O46 O04 EF OF og 689 dos: EXTZV #4,44,SLT_B_CRED(R7),RO ; Get slot tyes 
50 OD 91 OFOE 2690 CMPB ss #SC.T_C_STP_SLOT,RO : Is this a STOP slot? | 
F 12 ori 691 BNEQ LOOP” ABORT ; Br if not, do nothing 
0738 30 OF1 O36 BSBW LTSHANGUP_UCB_NOW ; Hangup the UCB to logout process | 
4B 11 OF IG $033 BRB NEXT_SLOTO ; Process next slot 
OF18 2695 ; Flag protocol error and ignore slot 
pris 696 ; 
OF18 2697 LOOP_ABORT: | 
OF18 2698 SETBIT M#GHBS$V_INVALIDLOCID,- : 
OF18 2699 GHBS$L_PROTOMASK+GHB_AREA ; Invalid remote ID or slot format 
orie 700 INC_CTR GHBSL_PROTOCOL+GHB_AREA s 
OF2 701 | 
OF 28 a 3 
ors At : Conditionally send stop slot 
01 A795 O38 705 70$: TSTB SLT_B_SRCID(R7) ; Check remote slot index | 
360«=—« 13 oss Pes BEQL NEXT_SLOTO ; Br if empty slot 
| 
OF Sp 708 ASSUME SLT_S_STP_SLOT&1 EQ 1 ; Assume we need rounding 
06 SA 01 OF2D 2709 CMPL R10,- ; Enough room for STOP slot header? 
OF 30 710 #SLT_S_STP_SLOT#+1 | 
31 19 OF 711 BLSS NEXT SCOTO ; Nope, just ignore the data 
5D AB 96 OF Ar INCB CSB_B_NUM_SLOTS(R8) ; Increment slot count ’ 
89 01A7 90 OF 71 MOVB SLT-B-SRCID(R7),(R9)*+ =; Copy local id from receive message 
89 94 OF39 2714 CLRB (ROT+ ; Tell him we are not here ! 
89 01 90 OF3B 2715 MOVB #SLT_S_STP_LEN, (R9) + ; Load slot byte count 
89 D0 8F 90 OF 716 MOVB #SLT“C“STP~SLOTA4,(R9)+ : Load stop slot format 
89 03 90 OF4 717 MOVB #SLT~C~INVSLOT, (R9) + ; load reason code 
F45 2718 ASSUME SLT_S STP_SLOTé1 EQ 1 ; Assume we need rounding 
89 94 OF45 2719 CLRB (ROJ+ 3 round up to even boundary 
5A 06 C2 OF47 2720 SUBL2 #SLT_S_STP_SLOT+1,R10 ; Adjust bytes left for other slots 
17 ~=«11 $y, if 1 BRB NEXT-SCOTO : Go do next input slot 
ft 4 § : Range check error, is this really a disconnect slot ? 
01A7 95 OF4C 2725 $08: TSTB SLT_B he ; Empty remote slot index? (stop slot?) 
12 13 OF4F 2726 BEQL NEXT_SLOT ; Br if yes, ignore the slot. 
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grminal Port Driver 

D SLOT DATA 

7 SETBIT ~ $V_INVALIDREMID,- 

8 L_PROTOMASK+GHB_AREA; 
3 INC. CTR GHESL- PROTOCOL+GHB_AREA ; 
1 

§ NEXT_SLOTO: 

? BRW NEXT_SLOT 

5 -DISABLE LOCAL_BLOCK 


"SSEB=19B4 91:28:33 HEAT USRCHRGDRIVER Ran: 1 


pees LOCID with REMID non_zero 
Count as protocol error 
: Send a stop slot 


; Branch aid 
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-SBTTL PROCESS SLOT CREDITS RECEIVED 


MOVB. SLT _B_CRED(R7) ,RO 
ASSUME StI C“DA_SLOT Ea 0 
BGEQ $” 


EXTZV #0, #4, SLT_B_CRED(R7 
EXTZV #4, #4. st “B-CRED(R7 
SDISPATCH R1, TYPE=B,~ 
<- 4 £ fxs act 
<SLT_C_DB_SLOT 5085, 
<SLT“CZATT_SLOT 40$>, 


BRW LOOP_ABORT 


DATA_B slot 


BISB #UCBSM_LT_DATA,- 
UCB$B-LT~DATAW(RS) 
INCB ucesB. CT_RCRED(RS) 


BSBw: LTSHANGUP_UCB 


ATTention slot, IGNORE DATA 


ADDB RO,UCB$B_LT_TCRED(R5) 
BRB NEXT _SLOT 


RUN slot 


ADDB = RO, UCBSB_LT_TCRED(RS) 


IF ides 4 Ay CRED_ CHECK 
eree UCBSB_CT_TCRED(R5S) ,#2 
SETBIT og DCREDITS, 

BSL_PROTOMASK+GH 
INC_CTR GHB$L” PROTOCOL +GH 
BSBQ LTSHANGUP_UCB 


.ENDC =: DEFINED LT_CRED_CHECK 


terminal data through class driver 


R3 - contains the character 
RS - UCB address 


+ ae SLT_B_COUNT(R7) ,AP 
MOVAB SLT _T_DATA(R7) ,R11 


-o 


B_AR 
B_ARE 


; Get credits and slot type 
; assumption 


Got a DATA_A slot 
; Get the credit counts 
Get the slot type 


; pispatch on slot type 
; DATA_B slot???? 
; Attention slot 


ALL others, including Reject slot 


Remember to at least send back the 


credits 


One less seeett on remote end (negative) 
Br if credits not exceeded, procee 
Else, Hangup the UCB to Logout process 


Update credits 


; Skip to next slot 


; Update credits 


; Br if ok 


Too many credits in host 
Too aoe credits in ho 
: Wangup h 


; Character count for this slot 


No input here 


: Source of characters 


- 


Rs 


st 
e UCB to logout process 
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20 0143 CS) «00 EO OFA? 2794 BBS #UCBSV_LT_HANGUP 5 3f device is hong ing up, do not con- 
FAD 0795 UCBS$B_CT_CATSTS (AS) NEXT. SLOT fuse class driver with more data 
0147 ce % FAD P38 INCB UE BSS LS ACREDSRD? ; One less credit on remote end (negative) 
1 FB1 279 BLEQ $ ; Br if credits not exceeded, proceed 
06A5 30 OFBS Pee BSBW LTSHANGUP_UCB ; Else, Hangup the UCB to Logout process 
ee FB 199 min BRB NEXT_SLOT : Continue 
FB oo) ; : Indicate that input stream is running again, and data is potentially 
ae Hit : available. 
OFB 804 ASSUME UCBSB_LT_LATSTS EQ UCBSB_LT_DATAW+1 
1001 8F AB ore B0¢ BISW oir LT INCUTOR>'UCBSA. LT =DATA. - ; Data potentially available 
0142 C5 OFBC 80 B_CT_BATAW(R INPUT stream in enabled 
64 AS 02 88 pre 443 BISB Pita tt INT, UcesL STS(RS): Seren i data to be returned 
ee gi9 : Dump characters into class driver 
53 8B 9A OFC aig 80$: MOVZBL (R11)+,R3 ; Get next character. 
og EO OFC6 281 BBS #UCBSV_LT_OVFLOW,- :; Br if overflow, wait for XON 
09 0143 € OFC8 2814 UCBSB_LT_LATSTS(R5) ,90$ 
0110 D5 16 OFCC 2815 JSB @UCBSL~ TT PUTNXT(RS) ; Pass character to class driver 
1B ig OFDO B18 BNEQ ECHO_ERROR ; Br if character being echoed 
So ae BED soit SOBGTR AP,80 ; Do all characters 
10 BA OFDS 3819 90$: BICB #UCBSM_LT_INPUT,- ; Input stream is now disabled 
0143 C5 pepe so UCBS$B_LT “LATSTS(R5) 
OFDA 2822; Bum inters to the next slot 
OFDA 355 ; flow 
OFDA 2824 NEXT_SLOT: 
50 02 A7 QA OFDA 2825 MOVZBL SLT_B_COUNT(R7), RO ; Max bytes in the slot 
05 A740 9E OFDE 2826 OVAB <SLT_T DATA+1>(R7) = : a ute address of next slot +1 
57 Ores 827 ROI; _R7 3 elp round to word 
57 01 CA OFE 828 BICL #1, R7 : ake it a word _woundary. 
5D D7 OFE6 so¢p DECL FP 3; Loop on all s 
2D «6°13 «(OFES se 0 BEQL SLOT_LOOP_OUT 3 Done all input siots, now process 
OFEA 2831 3 any output 
FEBC 31 ores o3¢ BRW SLOT_LOOP_IN ; Process all pesntend slots 
OFED 2834 ECHO_ERROR: ; Character being echoed??? 
OFED 2835 DEBUG 3:88 Should not get to here 


< 
4 


| ; 3 
LTDRIVER 
04-000 


ASSJ#E SLT_B_DSTID EQ 0 
MOVE UCBSB"LT_REMID(R5), (R9)+ ; Send the remote slot index 


ASSUME SLT_B_SRCID EQ SLT_B_DSTID+1 | 
ASSUME SLT"BICOUNT EQ SLT~B-SRCID+1 | 
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FE i |, sSBTTL_ BUILD A STOP SLOT 
rr 33 ; BUILD A STOP SLOT | 
44 4} ; Functional description: 
H bc$ ; Build a stop slot in the out message buffer, then delete the UCB. 
OFF 845 ; Inputs: 
ore 538 3 R5 = UCB address 
FF 4? ; R8 = CSB address 
OFF ry 3 R9_ = current transmit buffer slot address 
oer 2 3 R10 = transmit buffer bytes left 
OFF 851 ; Outputs: 
OFF o2¢ : R5 = UCB address 
OF F 853 ; R8 = (SB address | 
OFF 854 ; R9 = current transmit buffer slot address 
OFF 855 ; R10 = transmit buffer bytes left 
OFF 856 ; 
OFF 857 ;-- 
OFF 858 
OFFS 2859 SEND_STOP SLOT: ag 
0148 cS «95 OFF sees TSTB CBS$B_LT_CURC(RS) ; Is UCB data waiting? 
03 13 OFF? 2861 BEQL $ ; Br if no, send the STOP slot 
00B2 31 8 + 2 $¢ BRW CREDIT_CHECK ; Send data if our credit is good 
04 SA D1 OFFC 64 308: CMPL R10, #SLT_T_DATA ; Enough room for STOP slot? 
1E 15 OFFF 65 BLEQ ONE_L ; Br if no, send it next time 
5D AB = (96 4 66 INCB CS87B_NUM_SLOTS(R8) ; Update slot count 
i) 
1004 68 
1004 69 
1009 70 
1009 71 
1009 ie 
1009 7 
1 74 
1 75 
1 76 
1 77 
1 78 
1 79 
1 2880 
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0 09 00 09 09 C9 0D Cd Cd 09 GD CD Go 09. 09 0D CD CD CD 


89 B4 CLRW + : Zero SRCID for a stop slot 
0B ; and no data 
0B ASSUME SLT_B_CRED EQ SLT_B count é 
89 DO 8F 90 0B MOVB #SLT_CT_STP_SLOTA4,(R9)+ ; Load stop slot format & no credits 
SA 04 C2 OF SUBL #SLT_T_DATA, R10 3; Adjust bytes left for other slots 
1 3288;;** Skip call if HOST BIND 
0688 30 1 BSBW LTSKILLUCB ; Wipe out the UCB now. 
08 11 1 BRB ONE_LESS ; Get next slot 
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SLOT_LOOP_OUT: 
MOVZBL 
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~SBTTL PROCESS OUTPUT SLOT DATA 
PROCESS OUTPUT SLOT DATA 
Functional description: 


LAT.SRCILTDRIVER.MAR; 1 (46) 


Now output any waiting data from each UCB on this circuit and an 
data returned from the class driver is transfered to the appropriate 
output slot in the transmit buffer. 


Inputs: 
RO-R4 available 
R> = UCB address 
R6,R7 = scratch 
R8 = CSB address 
R9 = current transmit buffer slot aaoress 
R10 = transmit buffer bytes left 
R11-FP = scratch 


Outputs: 
none. 


We continue processing in the send reply message section. 


CSB_B_REFC(R8) ,FP ; Set output UCB Loop count 

MOVAL CSB"L-UCBLST(R8) ,R7 ; Set base address of UCB vector 
ONE _LESS: ; One less unit left 

DECL FP ; Any UCBs left ? 

BGEQ 10$ 3; Br yes 
10$ BRW LOOP_EXIT ; Else, exit loop 

MOVL (R7)+,R5 ; Get next UCB address 

BEQL 10$ ; ignore holes in non-dense vector 


: Dispatch on our terminal UCB state 

SDISPATCH UCBS$B_LT_STATE(RS) , TYPE=B,- 

<- ; state ; action 

<UCBSC_LT_STATE_STOP | SEND STOP_SLOT>,- ; STOP state, send stop slot 


SUCBSCILTISTATE “KILL ONE _CESS>7- ; KILL state, ignore this 
; RUN and START, just fall through 

TSTB UCB$B_LT_DATAW(RS5) : Is there ar data waiting? 

BEQL ONE_LESS ; Br if no, skip this UCB 


Check for ABORT message first 


BBCC #UCBSV_LT_ABORT,- ; Br if no abort requested 
UCBSB-LTDATAW(RS),30$ ; and clear flag 


3; Send an ATTention slot 


ASSUME SLT_S_ATT_SLOT&1 EQ 1 ; Assume we need roundin 


R107 BSLT7S_ATT_SLOT#1 ; Enough room for ATTENTION slot ? 
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erminal Port Driver 197 SE b= 138 
SLOT DATA -SEP-19 


9 BLEQ © 508 

9 INCB CSB_B_NUM_SLOTS(R8) 

‘ ASSUME UCBS$B_LT_LOCID Fa UCBSB 
ASSUME SLT_B-DSTID EQ 

4 ASSUME SLT“B"SRCID EQ S$ 

5 ASSUME SLT“B7COUNT EQ S 

‘ ASSUME SLT“B-TYPE EQ SL 
ASSUME SLT"B"ATT_CONTROL 

5 MOVW UCBSB_LT_REMID(RS) 

0 MOVB &#SLT_S_ATT_LEN, (R9S+ 

1 MOVB #SLTICZATT“SLOTa4, ( 

§ ASSUME SLT_S_ATT_SLOT®1 EQ 

4 MOVW  #SLT_ATT_M_ABORT,(R 

5 SUBL  #SLT~S_ATT“SLOT+1,R 

; : Check for flow control message 

9 S0s: 

0 BBLC =: #UCBSV_LT_FLOW 


~B-S 


<: nigh gad (R9)F 
7985 "21990 ; 


744 VAX/VMS Macro V04-00 
:22 CLAT.SRCILTDRIVER.MAR;1 


Br if no, skip it (use br helper) 


; Update slot count 


; Send the remote slot id 
Set ATTENTION slot data size 


; Load ATTn type & no credits 


; Assume we need rounding 
: Send abort flag & zero byte 
; Account from room taken 


anal Ppa ; Br if no flow requested 
UCBSB_LT_DATAW(R5) ,90$ ; 


and clear flag 


Use up a credit 

Br if okay, continue 

Else, restore credits 
Remember to send flow control 
when we have good credit 

And continue 


; Assume we need rounding 
; Enough room for DATA_B slot ? 


rounded up 


; Br if no, skip it (branch helper) 
; Update slot count 


1D+1 

_TYPE+1 

“CONTROL +1 
OF OF +1 


D 
“B"DB~OF ON+1 
“B" DBI IFOF +1 


; Send the remote slot id 
et DATA_B data size 
d DATA_B type & no credits 


; Send DATA_B slot 
965 DECB 4  YCBSB_LT_TCRED(RS) 
966 BGEQ 408 
7 INCB  —- UCB$B_LT_TCRED(RS) 
8 SETBIT #UCBSU_LT_FLOW,- 
9 UCBS$B-LT~DATAW(RS) 
9 BRB 90$ 
§ 40$: 
ASSUME SLT_S_DB_SLOT&1 EQ 1 
4 CMPL - 
5 #<SLT_S_DB_SLOT+1> 
6 50$: BLEQ 
? INCB CSB_B_NUM_SLOTS(R8) 
9 ASSUME UCBS$B_LT_LOCID EQ UCBSB_LT_REMID+1 
0 ASSUME SLT_B-DSTID EQ 0 
1 ASSUME SLT“B"SRCID EQ SLT_B 
; ASSUME SLT"B"COUNT EQ SLT 
ASSUME SLI“B"TYPE EQ SLT 6_ 
4 ASSUME SLT"B"DB_CONTROL EQ 
5 ASSUME SLT"B"DB“OFOF EQ SLT 
6 ASSUME SLT"B"DB-OFON EQ SLT 
7 ASSUME SLT“B"DB-IFOF EQ SLT 
‘ ASSUME SLT~B"DB"IFON EQ SLT 
0 MOV § UCBSB_LT_REMID(RS), 
1 MOVB #SLT_S_DB_LEN, (R9)+ 
MOVB #SLTC~DB7SLOTa4,(R 
MOVB #SLT7DB_M TEENA: SLT 
MOVL #<179245'219a16>!<1 


ssume default values 
>, (R9)+ ; Assume default values 
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TORIVER = Local Area Terminal Po 
aah its PROCESS OUTPUT SLOT DATA LAT.SRCILTORIVER.MAR; 1 
44 1 1TW #TTSM_HOSTSYNC,,UCBSL_DEVDEPEND(R5) ; Assumed “S and “0 
of 13 1033 $337 Tn Bra! ok 
FE AQ 7 8B ! a 44 MOVW #<7a0>,-2(R9) ; Else, we were wrong 
1098 60$: 
44 AS $e F: 1098 a} BITW #TTSM_TTSYNC ,UCBSL_DEVDEPEND(RS) ; Assumed “S and “Q 
12 109F ; BNEQ 70$ ; Br if assumption was correct 
FB AQ Bs Ss 10A1 0 BICB #SLT_DB_M_OFENA,=-5(R9) ; Else, clear output flow enable 
FB AQ 8 8 : . One BISB #SLT_DB_M_OFDIS,-5(R9) ; and set output flow disable 
10A9 3006 708: 
10A9 099 ASSUME SLT_S_DB_SLOT&1 EQ 1 ; Assume we need rounding 
89 94 10A9 3 CLRB (ROJ+ ; Round up 
5A OA (C2 10AB 300 SUBL #SLT_S_DB_SLOT+1,R10 ; Adjust bytes left (rounded up) 
at 
og ; Check if there is any output data waiting 
014 $0s: 
015 
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LTDRIVER = Local Area Terminal Port Driver 16-SEP-1984 01:46:44 VAX/VMS Macro V04-00 Page 72 
ye 000 PROCESS OUTPUT SLOT DATA et 94520533 LAT.SRCILTORIVER.MAR; 1 ’ Ly | 
} ++ 
1 Any credits and enough room in output buffer for this slot ? 


CR e Se Se Sete 


} 7 
; 
ie 3 
! § REDIT_CHECK: 3; UNUSED LABEL (breaks up LSB) 
! A 8 ¢ ; Flush all characters to transmit buffer 
10AE § ; R8 = CSB address 
} A 3 R5 = UCB address 
56 0149 7 9A 1 at § MOVZBL urease LT_SLOTSZ(R5),R6 ; Get maximum slot size 
56 A D1 108 030 CMPL R10,R6 i Is space left greater? 
03 14 #1 Bg 031 BGTR 10$ ; Br if yes, then we can use it 
56 5A 08 108 032 MOVL R10,R6 ; Else, use lesser size 
56 04 C2 10BB 3033 10$: SUBL #SLf_T_DATA, R6 ; Subtract slot header size 
08 14 108 5 4 BGTR 30$ ; Br if enough room 
10¢ 35 208: SETBIT #FLAG_V_RRF,- ; Else, indicate response requested 
10 036 CSB8_6_FLAG(R8) ; since not all data fit in buffer | 
FFS7 31 10C 037 BRW one_CESS ; No room Left in output slot 
5C 56 DO 10€8 3038 30$: MOVL 6,AP ; Get room left in output slot 
5B 04 A9 «(OSE 10.8 039 MOVAB SLT_T_DATA(R9),R11 ; Sink of characters 
1OCF 3041 ; Check if we have credits, or if we need to return credits 
ieee 628 : before building the message. 
0146 C5) 95 Ice 044 TSTB UCBSB_LT_TCRED(RS5) 3; Any credits we can use to send msg? 
09 14 1003 3045 BGTR 0$ ; Br if yes, okay to build data message 
10D5 266 ASSUME LATSC_MAX_RCRED EQ 1 
0147 C5 95 10D5 TSTB UCBSB_LT_RCRED(RS) ; Remote have any credits? 
E5 12 1009 3048 BNEQ 208 : Br if yes, just leave now 
00c4)=—ss 311 itr Bop 408 BRW USE_CREDIT ; Else, send back credits | 
ODE 31 3 Any data from startio ? | 
52 0148 C5) QA 43 088 MOVZBL UESB_LT_CURCCRS) RZ ; Get characters in startio ? | 
4A 13 SE 054 BEQL 0$ ; Br if none 
53 014C CS) 9E 10€5 3055 MOVAB UCBS$B_LT_CBUF (RS) ,R3 ; Set address of buffer | 
52. 5C D1 106A B28 CMPL AP ,R2 ; Got enough room in xmit buffer? 
29 18 16D 305 BGEG = 608 : Br if yes | 
10EF §89 3 Re = COUNT 
Det bee 3 R35 => DATA 
0148 (5 SC 82 10€F 06¢ 2 SUBB2 AP, UCBSB_LT_CURC(R5) ; Save residual count 
55 DD 10F4 306 PUSH : Save the UCB address 
68 63 5C 28 10F6 3064 MOVC AP, (R3), (R11) ; Copy the string from UCB to output bfr 
23 aa + 10FA 3065 POPL R5 $ Restore the UCB address. 
58 : DO 10FD Bo8 MOVL R3,R11 ; Set address of next available byte 
36 014C C 9E 1199 06 MOVAB UCB$B_LT_CBUF (RS), Re ; Copy residual chars to beginning 
5 0148 C5) 9A 11 ¥¢3 MOVZBL UCBSB_LT_CURC(R5S), R ; _of UCB buffer area 
3 by 110A 8 PUSH R ; Save the UCB address 
62 61 8 11 070 MOVC R3,(R1),(R2) ; Move the string up in the UCB 
5 8EDO 111 14 POPL RS ; Restore the UCB address 
C Be 111 ie CLRL AP ; No more room lef 
008A 1 #111 07 BRW USE_CREDIT ; Use a credit and send them 


<r- 
Rs 
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ba tt PROCESS OUTPUT SLOT DATA mi iat} 1:40:22 (CLAT.SRCILTORIVER.MAR;1 ° (47) 
1118 74 
gis 94 111 75 60$: CLRB UCB$B_LT_CURC(RS5) ; No data now 
C2 111¢ 6 SUBL2 R2,AP 3; Adjust room left in slot 
BP 111F 7 PUSH 8 : Save the use address 
68 63 28 1121 8 MOVC R2,(R3), (R11) : Copy the strin 
BEDO 1125 7 POPL 3; Restore the UCB address 
58 DO 1128 3080 MOVL R3,R11 ; Set address of next available byte 
§ DS 1128 8 1 TSTL AP 3; Any room Left in slot ? 
1 1} 4 ¢ BLEQ USE_CREDIT 3; No, just transmit data 
1% : O84 3: Check if there is any data from Last time 
52 0120 C5 T 112F OB 70S: CVTWL UCBSW_TT_OUTLEN(RS),R2 ; Any data left from Last time ? 
2¢ 15 1134 308 BLEQ :; Br if no, try for new data 
53 11¢ CS) DO s:1136 «3088 MOVL Ps ihercramateen ; Get address of data 
2 25 D1 1138 3089 CMPL AP,R ; Enough room in buffer ? 
0 18 #11 090 BGEQ ; Br if yes 
8 5 DO 114 091 MOVL R2 ; Use all the space we have left 
0120 C 5 Ag 114 b38 80$: SUBW aD. UCBSW_TT_OUTLEN(R5) ; Adjust descriptor 
011¢C C5 5 C 1148 309 ADDL R -UCBSL- TT “OUTADR(RS5) 3 
5C 2 C2 1140 3094 SUBL R2, AP : Adjust count of chars left 
5 DD 1150 3095 PUSH RS ; Save the UCB address 
6B 63 2 28 1126 096 MOVC R2,(R3), (R11) 3; Copy the stri = 
55 BEDO 1156 3097 POPL R 3; Restore the UCB address 
5B 53 vO 1159 3098 MOVL R3,R11 ; Set address of next available byte 
5C D5 115C 3099 TSTL AP ; Any room left now? 
02 14 FA 3 100 BGTR GET_MORE ; Br if yes, get some more data 
40 11 116 101 BRB USE_CREDIT ; Else, try next slot 
116 196 
116 103 ; , ‘ 
118 ie 3; Loop draining class driver until no data is left or buffer is full 
1162 3106 GET_MORE: 
010C DS =«16 1198 4 14 JSB @UCBSL_TT_GETNXT(R5) ; Get characters from class driver 
1166 3109 ; R1=-R4 modified 
1166 3110 ; R3 = ?? and cc = 0 ! No more date 
1166 3111 ; R3 = char and cc = + ' One characte 
1166 \1¢ 3 R3 = 2? and cc = - ' Burst data ar _OUTADR, TT_OUTLEN) 
1108 BF 3; RS - ucb address 
40 13 1166 3115 BEQL USE_CREDIT1 ; No characters 
09 19 1198 118 BLSS GOT_A_LOT ; Got more than one character 
8B 53 90 116A 3118 MOVB R3,(R11)+ ; Copy character to output 
5C D7 116D 3119 DECL AP 3; Adjust voen in slot 
Fl 14 4 120 BGTR GET_MORE ; Go get mor 
2F 0 11=SO«1971~—Ssd3121 BRB USE_CREDIT 3; No room eft in slot 
117 1 § GOT_A_LOT: 
53 O11C C5 go 117 1 MOVL UCBSL_TT_OUTADR(RS),R3 ; Get output buffer address 
52 3320 g2 . 30 124 MOVZWL UCBSu- TT-OUTLEN(RS), *R2 : and charcter count 
2 C 01 #1170 3125 CMPL AP,R2- ; get gnough room in output buffer? 
93 18 11 136 BGEQ }~=-:«*108 : Br if y 
2¢ D0 11 1 MOVL AP,R2 3 utput "naximun possible 
C é C2 11 1 8 10$: SUBL2 R2,AP ; Adjust room left in slot 
011C C5 cO 1188 31 ADDL R “UCBSL TT -OUTADR(RS) ; Update output address 
0120 (5) 5 A2 118) 3150 SUBW2 R2,UCBSW-TT“OUTLEN(R5) ; and charcter count 


voe-805" PROCE 


al A 

$$ 0 

11 1 PUSH R 

1136 1 Moves R2,(R3), (R11) 
1198 1 POPL R 

119B 3134 MOVL R3,R11 

119€ 135 TSTL 

11A0 3136 BGTR GET_MORE 


Ls | 
UfPul’stot bata Yee "SrSEb=15BS 91:28:33 ECATYSRCHEGRIVERsRae;1 = P99" (25, 


Save the UCB address 

er the strin 

restore the UCB address 

set address of next available byte 
Any room left in slot ? 

Br if yes, look for more 


LTO 
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CONSUME CREDIT WHEN FILLING IN SLOT FIEL -SEP-1984 11:40:22 (CLAT.SRCILTDRIVER.MAR;1 (48) | 
\iA 138 -SBTTL CONSUME CREDIT WHEN FILLING IN SLOT FIELD 
11A 140; If pei data was added to output slot, use credit locally, pass credit 
134 ye ; to other end if needed, and set circuit mode to unbalanced. 
11A 128 -ENABL LSB 
11A 144 USE_CREDIT: 
64 AS O02 AB 1A 145 BISW #UCBSM_INT,UCBSL_STS(R5); Set interrupt expected, locks 
11A6 198 3; out transmits from STARTIO 
OF 11 ay 14 BRB 10$ 3; Continue 
11A 148 
a 149 USE_CREDIT1: 
64 A5 0 AA 11A 150 BICW #UCBSM_INT,UCBSL_STS(R5); Clear interrupt expected 
O02 €0 11AC 3151 BBS #UCBSV-LT_OVFLOW;- ; Don't clear data waiting flag 
05 0143 € 11AE 136 UCBSB_LT_LATSTS(R5),10$; ‘<f we're waiting for OVFLOW to clear 
01 8A 11B2 315 BICB #UCBSM_LT_DATA,=- ; No more output data waiting 
0142 C5 11B4 154 UCBSB_LT_DATAW(R5) 
11B7 3155 10$: 
11B7 3156 3:88 SUBL3 AP,R6,AP 3; form character count in AP 
11B7 157 3388 DECB UCBSB_LT TCRED(RS) 3; Use up a credit 
1187 3158 3:88 BISB #FLAG-M_RRF,- ; Set response requested flag 
11B7 3159 3:88 CSB_B _FLAG(R8) 3 
01 88 1187 3160 BISB #FLAG _A_RRF,- ; Set response requested flag 
5C AB 11B9 316! °$B 6 FLAG(R8) ; 
5¢ 56 5C C3 1188 16¢ SUBL3 AP,R6,AP 3; Calculate character count in AP 
OC 13 11BF 316 BEQL o$ ; Br if no data, DON'T use credit 
0146 CS) «97-111 sige UCBSB_LT_TCRED(R5) ; Else, use up a credit 
11¢€5 165 ASSUME SLT_C_DA_SLOT EQ 0 
0147 cS 81 11C5 3166 ADDB3 UCBSB"LT-XCRED(RS),- ; Calculate credits to send to remote 
01 1169 3167 #LATSC_MAX_RCRED,RO ; _ system as DATA_A slot 
08 11 #11CB 3168 40$ : Send credits and data 
11CD 169 ASSUME SLT_C_DA_SLOT EQ 0 
0147 CS «81 «611CD «3170 208 ADDBS UCBSB°LT-XCRED(RS) ,- : See if we need to send 
50 91 1101 3171 #LATSC_MAX_RCRED RO > a credit to the remote 
2 13 1103 Ze BEQL 60$ ; Br if no, send neching 
0148 CS) «450 80 1105 3173 40$ ADDB RO,UCBSB_LT_RCRED(R5S) ; Else, add in credits to send 
0147 C5 50 82 BY 1 SUBB RO,UCBSB_LT_XCRED(R5) 3; Credits have been extended 
Bd 178 : Setup slot header and advance pointer to next transmit slot header 
11DF 178 ASSUME UCBSB_LT_LOCID EQ UCBSB_LT_REMID+1 
isos +4 4 ASSUME SLT_B_SRTID EQ SLT_B_DSTID#1 
0140 C5 BO 11DF 13) MOVW UCBSB_LT_REMID(R5),=- 3; Set up slot connection ids 
69 11€3 31 g SLT_B DSTID(RI) 
5D AB 96 11E4 18 INCB CSB_B RuM_SLOTS(R8) 3; Update slot count 
02 a9 5C 90 11€7 13% MOVB P,SLT_B_COUNT(R9) ; Load character count 
0148 cS 4690 #1168 3185 MOVB UCBSB_CT“RCRED(RS).-  : Load slot type and credits 
03 A9 11EF 196 SLT_B_CRED(R9) 
11F1 \3 ASSUME SLT _C_BA_SLOT EQ 0 : 
0148 3 94 11F1 3188 CLRB UCBSB-LT_RCRED(RS) ; Set RUN state, no more credits 
50 9 DO 11F5 3189 MOVL R9, RO ; Copy slot starting address 
59 38 DO 11F8 3190 MOVL R11, RO : Address of start of next slot 
5 D6 11FB 3191 INCL R9 ; Make word address 
59 1 CA 11FD 136 BICL #1, R9 3; which is even 
50 659 ® cs 1300 19 SUBL RO, RY, RO ; Compute bytes used by slot 
Sa 50) C2—s«1204 «319% SUBL2 RO. R10 : Adjust bytes left for other slots 


—— 
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v04-00 CONSUME CREDIT WHEN FILLING IN SLOT FIEL 5=SEP-1984 11:40:22 LCLAT.SRCILTDRIVER.MAR;1 (48) | 
| 
FEISS) = 31 ! oh 133 60$: BRw ONE_LESS ; go do next UCB 
! 199 LOOP_EXIT: 
! OA 199 : Compute and save the number of bytes in the transmit buffer. | 
! oA 0 : R9 => end of data in the transmit buffer 
120A ; : 
120A 04 ; There is a special case where the XMIT buffer can be taken 
120A 05 ; and that is when the circuit is halted. So if the circuit is 
120A 88 ; in the HALT state, then we can assume we no longer have the 
: pA 4 ; XMIT buffer that we copied data into. 
120A 3209 $DISPATCH CSB_B_STATE(R8),TYPE=B,- ; Dispatch on our CSB state 
120A 10 < ; state ; action | 
OA i " <CSB_C_STATE_HALT LTSREPLY_DONE>,- ; ALL done, exit | 
1211 321 | 
5D AB =95) «(1211 14 TSTB CSB_B_NUM_SLOTS(R8) ; Are there any slots? | 
04 12 1214 15 BNEQ 80$ ; Br if yes, continue 
01 BA 1 18 18 BICB #FLAG_M_RRF,- ; Else, clear RRF flag | 
A8 121 1 CSB_B_FLAG(R8) : 
AB DO 121A 18 80S: MOVL CSB_@_RBUFQ(R8), R1 ; Address of buffer | 
59 =O iste 219 MOVL R9, CRBSL_T_ENDADR(R1) ; Save end address of data 
1222 3220 .DSABL LSB 
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vba tt SEND REPLY RESPONSE TO RECEIVED MESSAGE -SEP-1984 rate 18:33 LAT.SRCILTORIVER.MAR; 1 ° (49) | V04 
! § ~SBTTL SEND REPLY RESPONSE TO RECEIVED MESSAGE | 
! ¢ LTSREPLY_MSG: 
} § : We come here to transmit a new frame in response to a received frame | 
8 : R8 = CSB address | 
59 34 a8 00 | ? : MOVL CSB_Q_XBUFQ(R8) ,RO ; Transmit buffer address 
1226 § LTSREPLY_ALT: | 
! ° rs TIF DEFINED LT_XMT_CHECK 
: 5 3 Debug code 
1226 $ : check the format of the slots and make sure that they are 
1226 8; well formatted. 
1226 39 ; 
\§ 6 40 ; R8 = CSB addres 
1226 41 ; R9 = transmit buffer address 
1336 a8 : RO-R3 clobbered 
1 $8 44 ° MOVAQ CSB_Q_XBUFQ(R8), RO ; Address of transmit head 
1226 3245 CMPL R9, R 3; Is there a transmit buffer | 
1 $e $8 NEQ ; Nope, its the queue head 
: $ rt 4 DEBUG 3; Can't be the queue head 
i 
1226 49 5$ MOVQ CSB_T_CIRCHDR(R8) ,- ; Move the circ header 
1226 50 XMT_T_DATA(R9) 3; to look at real msg 
\§ 6 51 CMPB XMT_B_FLAG(RY) ,- : Only analyse running msgs 
1226 26 #MTYP_C_RUN@FLAG_V_MTYPE ; with slots 
1$s0 5 BNEQ 50$ ; Not a running message 
1226 54 MOVL CXBSL_T_ENDADR(R9), R2 
1226 3255 MOVAB =XMT_T_M MBATACRS) . rb ; First slot address | 
1226 2$ MOVZBL XMT “8 ~NUM -SLOTS(R®), R1 : number of valid slots 
1226 325 BNEQ 10$~ We have sone 
1226 28 ; No slot = message must only have a circuit heade | 
1226 5 CMPL R2, RO 5 pnt my neat es 
12 6 3260 BEQL 50 : f yes, ok | 
1226 61 DEBUG : Rot correct 
1226 3268 BRB «508 | 
1226 64 10$: MOVZBL Rh] 8.COUNT (RO) . R3 3; Look to next slot | 
1226 65 BGEQ $ ; Must be greater or zero 
1226 66 DEBUG 3; Maxc not valid 
1226 67 308: ADDL +4 T_DATA, R3 ; Slot header Length 
1226 o8 ADDL R3, RO 3 
1226 8 INCL RO ; Round to word boundary 
1226 0 BICL #1, RO 3 
1226 71 PL RO, R2 ; Still inside buffer? 
1226 re BLEQU 40$ > Yep | 
1226 7 DEBUG ; Slot beyond buffer 
1226 74 40$: SOBGTR R1, 10$ 3; Check all slots 
1226 75 50$: 
: ° 8 -ENDC = =;; DEFINED LT_XMT_CHECK 
54 58 DO 1226 78 MOVL RB, R4 ; CSB address to r4 
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LTDRIVER - Local Area Terminal Port Driver 16-SEP-1984 01:46:44 VAX/VMS Macro v04-00 Page 78 
ra tt SEND REPLY RESPONSE TO RECEIVED MESSAGE §-§ ety 9:4 :22 HEAT SRCICTDRIVER MAR: 1 ° (88) | 
O80A 30 } , BSBwW LTSXMIT ; Transmit the buffer 
122C LTSREPLY_DONE: ; ALL done 
SFFE 8F BA ! 6 oa #°M<R1,R2,R3,R4,R5,R6O,R7,RB,RI,RIO,R11,AP,FP> ; Restore registers 
1 4 
1231 5 
6 LTSREPLY_REXMIT: 
8 : Retransmit last message 
30 : R8 = CSB address 
54 DO 1231 8 , MOVL RB, RS ; CSB address to R4 
0864 30 1234 329 BSBW ss LT$REXMIT ; Transmit all waiting buffers 
11 tA $3 BRB LTSREPLY_DONE 3; Finish up 
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LIDRIVER = Local Area Terminal Port Driver 16=SEP=1984 01:46:44 VAX/VMS Macro V04-00 Page 79. LTC 
ba tt [TECREATE CSO - Create a CSB mets orig :22 LAT.SRCILTDRIVER.MAR; 1 a (50) v04 
1239 97 -SBTTL LTSCREATECSB = Create a CSB 
1239 38 p++ 
i 2 + 3; LTSCREATECSB = Create a CSB 
} 2 84 : Allocate a CSB for use and initialize it partially. 
1239 a8 ; Inputs: 
1239 4 ; R4 => next entry in 6SB table beyond the one that is free 
: | 05 ; R1 = Length of UCB List at end of CSB 
1239 5 ; Outputs: 
1239 § : Re = new CSB address 
: 4 o? 3 RO = success or failure 
: 4 1 3 CSB table entry set to its address 
1 $9 18 3 Ri-R2 are destroyed. 
1239 14 ;-- 
1 4 15 
1239 $13 LTSCREATECSB: 
51 00000070 8F CO 1239 17 ADDL #CSB_C_FIXLENGTH+4,R1 ; Add in size of fixed block + 
1240 18 3; _one ‘'no access’’ UCB slot 
53 DD 1240 19 PUSHL R3 3; Save R3 
00000000 ' GF 16 «1 yt 0 JSB G*EXESALONONPAGED 3; Get block 
53 BEDO 124 321 POPL 3 3; Restore R3 
40 50 €9 1248 33 ¢ BLBC 0, 10% 3; Got block 
= 2s f 3 PUSHR #*M<R1,R2,R3,R4,R5> ; Save registers 
62 51 00 6E 00 2C 1250 3324 movcS #0,(SPS,#0,R1,(R2) : Zero block 
3E =BA 1256 $52 OPR #°M<R1,R2,R3,R4 ROD ; Restore registers 
08 51 BO 1258 3 6 MOVW R1,CSB.W SIZE(R2) ; Save size of CSB in CSB. 
OA A2 33 90 125¢ si MOVB #O0YNSC_CBB, - 3; Store an unlikely type in the 
1260 3328 CSB_B_TYPE(R2) ; the block | 
50 EDD4 CF of 1260 4 MOVA GHB_L_CSBTABLE, RO ; Create the slave index from the 
50 54 50 C3 1265 3330 SUBL RO, R&, RO ; address in the CSB table 
50 04 C6 150? 331 DIVL2 # : from 1 ton | 
60 A2 50 90 126C $36 ove RO, CSB_B_LOCIDN(R2) 3; and save it in the CSB 
68 A250 8690 1st 3 MOVB RO, CSB B_INX(R2) ; Save it here also ; 
61 A2 EE3SF CF40 90 1274 3334 MOVB GHB_B_LOC CCHKCROJ,- ; Obtain the check field for inis 
1278 339 CSB~B-LOCIDS (Re) ; CSB slot | 
13%6 337 : Initialize queue headers 
50 34 A2 YE 1278 3339 MOVAB CSB_Q_ XBUFQ(R2), RO ; Initialize the queue headers for the 
60 28 DO 127F 40 MOVL RO, (RO) ; transmit buffers 
04 AO 0 od0 1282 41 MOVL RO, 4(RO) 3 
0 3C A2 9E 1286 4@ MOVAB CSB_Q XWAITQ(R2), RO : 
60 50 DO 128A 334 MOVL RO, : | 
04 A0 50 00 128D 3344 MOVL RO, 4(RO) ; 
58 25 DO 1291 45 MOVL R2, ; Return address of CSB here 
74 COS DO 1294 $08 MOVL R2, -(R4) ; Store address of CSB in table 
50 00°BF 9A 1297 334 MOVZBL #SS$_NORMAL, RO 
05 1298 3348 10$: RSB 
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e000 CTSNEW CIRCUIT - Get Concentrator State 73621 382 oie :22 LEAT SRCICTDRIVER MAR: 1 ’ Bf) 
! +5 9 : -SBTTL LTSNEW_CIRCUIT = Get Concentrator State Block 
} $' ¢ ; LTSNEW_ CIRCUIT = Get concentrator state block and initialize it 
: oe ee ; Functional description: 
129C 2$ ; Whenever a frame with a zero svci is seen and the circuit state is 
129C 57 ; start ng. we attempt to allocate a CSB and start a circuit. First 
129 58 ; we check for a CSB with the same source address. If any are found 
129¢ 59 ; and the mvci matches and the state is starting, then we retransmit 
129¢ 60 ; our etert ing message for that circuit. If the other things are not 
129¢ 61 ; true, then the circuit is clobbered to that source since the mvci 
129C 86 ; does not match or the circuit is already running and the concentrator 
! oe o7 ; is trying to restart it perhaps because it rebooted. 
129¢ 65 ; Inputs: 
129C 66 3 R3 = CXB address 
1$3t 67 ; R6 = receive buffer address 
129C 68 ; R10 = IDB address 
129C 3369 ; 
129C 3370 ; Outputs: 
129C 3371 ; R6 = receive buffer address 
129 36 : R8 = CSB address : 
129C 3373 ; RO,R1,R2,R3,R4,R7 and RY are modified 
129C 3374 ;-- 
34! 375 
129C $8 LTSNEW_CIRCUIT: 
54 €D98 CF 9E 129C 337 MOVAB GHB_L_CSBTABLE ,R4 :; Find free entry in CSB_TABLE 
52 20 9A 12A1 3378 MOVZBL #LATSC_MAX_CSBS,R2 3 Length of table in longwords 
58 84 OD ish 144 10$: MOVL (R4)+,R8 ; Get CSB address 
2A \gat $89 BEQL : Ignore unallocated ones for pass 
12A9 $88 : If this is the same source address, then we are looking for a duplicate 
12A9 3383 ; starting mossege, It will have the same local index and a state of 
1gA2 see 3 starting. If this is not the case, then just clobber the circuit. 
28 AS oO 1549 386 CMPL CXB$Q_STATION(R3) ,- ; NI source address match? 
2E AB 12AC 3387 §58.2.0ST (RE) : 
23 12 12AE 3388 BNEQ 0$ ; Br if not, look for more 
¢s A3 Bil 1280 3389 CMPW CXBSQ_STATION+4(R3),- ; Rest match too? 
2 Ag 1983 90 |: lalate ‘ 
1¢ 8612 «©1285 91 BNEQ 0$ : Br if not, look for more 
02 A6 «Bi 1287 35 CMPW RCV_W_DSTID(R6),- ; Is this a duplicate pterting msg 
60 A8 1soe 9 Ss ected ; _ with the same local vc indx/seq? 
OA 12 12BC 94 BNEQ $ : Br if not, kill circuit 
0B ASB 91 «1 4 95 CMPB CSB_B_STATE(R8) ,- ; Is the state still starting? 
01 12C 96 #CSB_C_STATE_START 3 
04 12 12C2 97 BNEQ 20$ ; Br if not, kill circuit 
50 602 4 12C4 38 MOVL #2, RO : Else, tet higher code to retrans 
0 : cf 4 RSB ; our starting message 
0426 30 1 § 401 208: SBW LTSCIRCDEAD ; Get rid of UCBs 
$5 A8 1 CE 12CB 106 MNEGL #1, CSB_Z_DST(R8) :; Form illegai address 
A8 1 AE ! cr rt ? MNEGW #1, CSB_Z_DST+4(R8) ; to stop next compare 
c S25 3 208 30$: SOBGTR R2,10$ ; Try whole table 
1206 3406 3 


<r 
Bao 
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1002000 LTSNEW_CIRCUIT = Get Concentrator State ~$Fb= 382 Mid :22 (CLAT.SRCILTORIVER.MAR; 1 < By v4 
} D6 ang ; Search failed, try to find a free CSB 
— oe 7 + 4 § bps #GHB_STS_V_SHUT,=- ; Br if we are shutting down, 
OF EEA9 CF 12D “iy GHB~B_STATUS,50$ : don't let connection succeed 
54 £058 F DE 10DC 341 MOVAL GHB ‘ CSBTABLE, R4 $ Look again for a free CS 
0 9A 1261 416 MOVZBL #LATSC_MAX_CSBS, R2 : Set max CSBs 
4 05 12€4 534135 40$: TSTL (R4)+ i Is this slot free? 
98 13° (1 E6 414 BEQL 60$ ; Br if yes. great 
F9 F : 4 az SOBGTR R2, 40% ; Loop til done 
ZEB ‘i? ; Return resouce error 
50 04 12EB 418 50$: ELRL RO ; Return failure indicating resource 
05 12ED 3420 RSB ; failure 
1SEE 3652 608: —; | 
12EE 34 : ; : Check the protocol version of the incoming message and reject all but | 
! 43 438 3 our own, 
50 O08 A6 9E 1 EE 426 MOVAB = RCV_T_MDATA(R6), RO ; Address of first slot 
05 02 a0 91 iste rt 44 CMPB STRT B_PVER(RO). - 3 Check version number | 
F312 1376 639 BNEQ RP 3; Must be equal 
12F8 3431 : Check the circuit timer value (in multiples of 10 ms). 
iste +36 ; We will accept anything in the range 10 to 1270 ms; legal 
iste $i? ; values are 1 to 127 in this byte field. 
06 AO (95 12F8 3435 TSTB «—- STRT_B_CIR_TIMR(RO) : Is this field positive and non-zero? 
EE 15 isco +38 BLEQ 50$ ; Br if not, illegal value 
13¢D rh ; ECO is not checked 
156 440 ; R4 => CSB table address -4 
1B HS 
12FD 103 ; Compute size needed for UCB List at end of CSB, | 
! 4 rey ; size is based on MIN CLATSC_MAX_SLOTS, STRT_B_MAXSLOTS(RO)2 
55 40 8F 9A 12FD 3446 MOVZBL #LATSC_MAX_SLOTS,R5 ; Assume ours is MIN value | 
55 04 A0 91 1301 3447 CMPB TRT_B_MAXSLOTS(RO),RS ; Is rcvd slot count larger? 
04 1€ 1305 3448 BGEQU 0$ :; Br if yes, use ours 
55 04 A0 90 1307 3449 MOVB STRT_B_MAXSLOTS(RO),R5 ; Else, use smalier of two 
51 55 02 78 08 430 70$:  ASHL 4#2,R5,R1 : Multiply by 4, and save in R1 
fre? 30 130F 126 BSBW b Tocpeerecss ; Create a CSB 
6 —9 1 \g 45 BLBC RO. 50$ ; Br if resource error 
69 AB 55 90 : iF $28 MOVB R5,CSB_B_MAX_SLOTS(R8) ; Save the maximum allowed slot count 
' 19 +28 : Save the server's name : 
1319 3458 ASSUME STRT_B_SYS_LEN EQ STRT_T_NODE+GHBSK_NAMELEN 
9 08 . 9E 1319 3459 MOVAB RCV_T_ADATA(R6) RO 3; Get address of first slot 
1 OC AO 9A 131D 3460 MOVZBL STRT_B_NODE LEN(RO) RI : Get Length of dest node name 
52 0D AO 9E 1321 3461 MOVAB STRT-T_NODETRO) ,R2 ; Get address of dest node name 
52. 51 CO 1325 106 ADDL R ; Skip dest node name, point to src name 
51 62 9A 1328 346 MOVZBL (R2),R1 ; Get length of src (server) name 


, eee a aaa seneuinsitiqnmeteetemes =" a —_ 
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| 10 51 01 1328 3464 CMPL R1, #GHBSK_NAMELEN 3 Js she name length okay? 
98 7-7 465 BLEQ 7 : yes, continue 
51 9A 1 106 MOVZBL #GHBSK_NAMELEN,R1 3 et. use maximum allowed 
62 1 90 1 46 MOVB R1,(R2) ; Make size of name valid 
1 p6 1 | re 75$: INCL R ; geceune jor Length byte 
9 Be 1 $ PUSHR #*M< Rg. ve regi sters 
10 AB 62 1 133A 3470 mMOVCS Rls Ras G30. B_ SERVER(RB) ; ,~* the server name 
9 BA : 7 $7] POPR ; Restore registers 
1341 138 ; Make the circuit timeout value twice the keep_alive value 
: at tre ; received from the terminal server. 
66 AGB -OE10 BF 0 1341 fh Movw #3600 CSB_W Roe lee a Assume a default of one hour 
51 07 Ad 9A 47 40? MOVZBL T_B_KPA-TIMR(RO), R1 Make tiner reset value 
; Not a good va 
51 05 C4& 1340 3479 MULL2 @# a1 ; Look ‘Sr five times the period, 
51 6 135 480 INCL 1 ; and one more 
+> ee) C 135 481 MOVZWL a. R5 ; Check for overflow 
oe. 3 Oe 6s 4 ¢ CMPL *R5 : Did we overflow? 
04 12 1358 34 BNEQ B08 : Br if yes, use default value 
66 AB 51 B0 : 2A r : 80s MOVW R1, CSB_W_TIMRESET(R8) ; Set the value in the CSB 
: 4 2 § ; Compute maximum buffer size to use 
0504 8F B0 1 3 488 MOVW #XMT_C_MAXOATA,= ; Assume ours is maximum allowed 
6A AB 136 489 CSB_W_MAX MSGS1Z(R8) 3 message size 
08 A2 1364 3490 SUBW #XMT~C"HORCEN ; Account for header is remotes size 
60 1366 3491 STRT_@_MSGS12(RO) 
OA 15 1367 138 BLEQ 96 ; Br if not Large enough 
60 B61 1369 349 CMPW STRT_W_MSGSIZ(RO),- ; Is remotes buffer larger? 
6A AB 136B 3494 CSB_ Wl “MAX “_MSGS1Z(R8) 
06 1€ 1360 3495 BGEQU§ 90$ ~ :; Br if yes, use ours 
60 B60 136F 138 MOVW STRT_W_MSGSIZ(RO),- ; Else, use smaller of two 
6A AB : 4 rh 44 008 CSB_W_MAX ”MSGS12Z (RB) 
: ; 44 : Note that locidn and xmit queue headers were setup by CREATECSB 
SE AB 04 A6 BO 137 501 MOVW RCV_W = BAC IO Cae) Cat. W -REMID(R8) ; In case of retransmit 
5D AB 94 1378 206 CLRB CSB"B_N LOTS(R8) ; Mode default is balanced 
52 a8 B84 137B 350 CLRW CSB_W_ MITA mOCRS) ; Not timed state 
66 AB BO 137E 3504 MOVW CSB" W TTARESET (RE) = 3; Set a nonzero timeout value 
50 a8 1381 3505 cSsB_Q ErCCRB) ; even if the normal value is zero. 
2D AB «94S s« 1383 206 CLRB cSB_6 345 ) ; No UCBs here 
14 BO 1 $ 23 MOVW #LAT$C_PROGRESS ; Set for allowing progress 
54 AB 8 208 CSB_W ~ PROGRESS (RB) : while we start u 
8 AS DO 138A 3510 MOVL CXB$Q_STATION(R3), ; Store remotes's NI address. 
E a 138D 3511 CSB_7_DST(R8 
CA BO 138F 218 MOVW CxB$0_STATION+4(R3),- : on 
2 AB 1392 351 CSB_7_DST+4(R8) 
00 90 1394 3514 MOVB #CSB_C_STATE_HALT,=- ; Circuit is halted 
OB A8 1 36 515 CSB B STATE CRS) 
62 A8 1 AE 139 218 MNEGW #1, SBM XSEQ(R8) Initialize transmit sequence 
64 AB FFOO 8F 8B ! : } MOV #<-1a8705,CSB_W “RSEQ(R8): Initialize receive sequence 
: " 318 ; Obtain all necessary transmit buffers for use 
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yen O00 LTSNEW_CIRCUIT = Get Concentrator State iets 94508333 LAT.SRCILTORIVER.MAR; 1 ° Bip vO 
8 A 4 13A CLRB £388 xniTesy (ng) ; Not busy transmitting 
A 4 135A CLRB CSB_B_XMTCNT (RB) ; No buffers waiting to transmit 
54 4A — 135A MOVA CSB_Q XBUFQ(RB), R4 ; Address of the transmit queue head 
5 0 A aC 4 MOVZBL #LATSC_XMT_BUFFERS, RS ; Set number of buffers 
51 4 8F 13AF 100$: MOVZWL 9 #XMT MAXLEN, R1 ; Size of the buffers 
00000066" F é 1384 § JSB G*EX SAL ONONPAGED ; Allocate the buffer 
0 €9 13BA 8 BLBC RO, 110 3; No such buffer 
08 A2 1 60 138D MOV R1, CXBSW_SIZE(R2) 3; Store the size, 
13¢1 3530 ASSUME CX8$B CODE £0 CXB$B_TYPE+ 
OA A2 1B BO 13C1 531 #OYNSC_CXB, - ; the block type 
! tS : § CxB$B_TYPE(R2) 3 and indicate not multicast buffer 
Oc A258 0 135C¢ 534 MOVL R8,CXBSL_T gyecnes ; Save CSB address in CXB 
3 A D 13€9 3535 MOV CSB Z7_DST(R8),- : Initialize the destination address 
A 13CC 5 § CXBSQ-STATION(R2) 
48 A 7C 13CE 35 CLRQ XMT_T DATA(R2) ; Zero circuit header 
0048 8F 0 1301 3538 MOVW #xmT_T_DATA,- 3; Store offset to start of data 
18 A 1305 3539 CXB$Q_BOF F (R2) 
64 OE 1307 3540 INSQUE (R2), (R4) ; Queue the buffer 
p255 F DA 341 SOBGTR RS, 100$ : for each of the buffers 
50 00° 8F 9A 1300 38 MOVZBL #SSS$_NORMAL, RO 
0S 13€1 544 RSB 
13€ 545 
13€ 378 3 
: : ae § Resource error return 
54 58 »vDO I13€ 549 110$: MOVL RB, R4 3; Move the CSB address for the call 
0003 30 13€ 550 BSBW LT$DEALOCSB ; Clean up the CSB before we leave 
50 D4 1368 3551 CLRL RO ; Return an error 
05 136A 2236 
13€B 55 


ro 
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-SBTTL LTSDEALOCSB = Deallocate a CSB 


p++ 
; LTSDEALOCSB 
FUNCTIONAL DESCRIPTION: 


INPUTS: 
R4 = CSB address 


OUTPUTS: 
RO-R3 are destroyed 


LTSDEALOCSB: 
MOVZBL #LATS$C_XMT_BUFFERS-1,R1 
108: ROVL SB_L_RCXBTR4)CR1J, RO 
LRL - CXBS$L_T_CSB(RO) 


ror 


REMQUE @C$B_Q_XBUFO(R4), RO 
BSBu LTSDEALPOOL 
5$ 


Wo 
AA 
onmue 
So 
@ 
a 
m 
o 


30$: REMQUE @CSB_Q_XWAITQ(R4), RO 
VS 40$ 


BV 
BSBW —LTSDEALPOOL 
BRB 0$ 

40$: MOVZBL CSB_B_INX(R4), R3 
BNEQ 508 
DEBUG 


50$: INCB GHB_B_LOC_CCHKCR3] 


BEQL 
DEBUG 
608: CLRL (RO) 


: We will now save this CSB on 


Deallocate the transmit buffers. 


Get number of transmits -1 
Is an FFI transmit in progress ? 


no 
Delete om eit to CSB in CXB 
Loop if m 

Now ome alt the buffers 

No more buffers 

Dump a buffer 


Now dump all the waiters 

No more buffers 

Dump a buffer 

Find our place in the table 
Great 


e 
Not properly initialized CSB 


8. ; Bump the slot check digit 

MOVAL GHB_L ~CSBTABLE~4CR3J, RO; able 

CMPL (ROY,~ ; Check this aiacaes with the one 
; we have. 

; Table is clobbered or CSB addr bad 
; No CSB address here anymore 


the OLD CSB queue, but we will 


kadrees int 


+ have to remove an old entry if we exceed our Limit. 


MOVL R4,RO 


8 
BRwW 180$ 
70$: : 


: Copy CSB address just in case 


want to deallocate 


it 
TSTL CSB. 7_LCB+LCB_L_MSG_ une cha)" } ae information in counters? 


f yes, save 


it 
TSTL C58 7_LCB+LCB_L_MSG -ReviRa) - Any titormat ion in counters? 


yes, save it 
: Else, yothing interesting here 


: We will now scan the CSB List for any old CSBs that match this 


3 one, that way we will only save 1 entry per server. 


2) 
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1002 at) ° 
51 —7 gf 9E 144 1 MOVAB GHB$Q_OLD_CSBS+GHB_AREA,R1 ; Get Listhead of old CSBs 
1 DO 146A 3614 MOVL R1,R2 i «twice 
§ DO 1440 3615 80S: MOVL (R3).R2 : Get next in queue 
D1 14 616 CMPL Re ri ; Are we back to start? 
6 13° (14 61 BEQL 106 ; Br if yes no more - insert new entry 
gt AG Di OG 213 CMPL CSB_Z_DST(R4),=- : Does the Ethernet address match? 
E ag 14 61 + 
12 165A 3620 BNEQ 0$ :; Br if no, try next 
$5 AS =6©B1 «O145C) «3621 CMPW CSB_Z_DST+#4(R4),= ; Full address match? 
A2 145F 36 ; CSB-Z_DST+4(R2) 
A 12 128 ° BNEQ 0$ ; Br if no, try next 
53 10 AG GA 16 4 MOVZBL 2 B_SERVER(R4) ,R3 ; Get Length of server name 
iC a2 53 (91 1467 625 CMPBsaR3,, CSB_B_SERVER(R2) : Lengths match? 
0 12 14 6 § BNEQ 80$ ; Br if no, try next 
7 88 1460 36 PUSHR #°M<RO,R1,R2> : Save registers 
DAG 65329 146 628 CMPC3 R3,CSB.T SERVER(R4),- : Does the server name match? 
1D a2 14 : 629 C58_T SERVER(R2) 
0 BA 147 630 POPR #*M2R0,R1,R2> 
D4 ssi12 Veet ? 1 BNEQ 80$ ; Br if no, try next 
1308 ? § : Take sum of counters and store in CSB @ R2 
1479 3635 ADD_CTR CSB_Z_LCB+LCB_L_MSG_XMT(R4),= ; XMITs 
1479 36 : CSB-2-LCB+LCB_L_MSG_XMT (R2) 
1484 36 ADD_CTR CSB_Z_LCB*LCB_L_MSG_RCV(R4),=- ; RCVs 
1484 3638 CSB_Z_LCB+LCB_L_MSG_RCV(R2) 
148F 3639 ADD_CTR CSB-2-LCB+LCB-L_MSG_REXMT(R4),= ; REXMTS 
148F 640 CSB_Z_LCB+LCB_L_MSG_REXMT(R2) 
149A 3641 ADD_CTR CSB-Z-LCB+LCB-W-SEQ-ERR(R4),- ; SEQ_ERRs 
149A 226 CSB_Z_LCB+LCB_W_SEQ_ERR(R2) ,W 
14A5 364 ADD_CTR CSB_Z_LCB+LCB_B_INV_MSG(R4),- ; INV_MSGs 
14A5 3644 CSB_Z_LCB+LCB_B_INV_MSG(R2) ,B 
1480 3645 ADD_CTR CSB72~LCB+LCB~B-INV~SLOT(R45,- ; INV_SLOTs 
1480 | CSB_7_LCB+LCB_B_INV_SLOT(R2), 
14 11 1488 364 BRR 1808 3; And delete the CSB a R4 
148D 3648 100$: : 
1420 rch ; Insert new CSB into List 
EC72 DF 64 OF 148D 3651 INSQUE (R4), @GHBSQ_OLD_CSBS+ -; Save CSB at end of CSB queue 
Vets $36 H + : since queue is time ordered 
ECCO CF §=697)=«(«14C 65 DECB GHB_6_OLD_CSBCNT ; Use up one more slot on queue 
OC 18 14€6 3654 BGEQ 1908 ; Br if still within CSB Limits 
ECBA CF 96 14€8 3655 INCB GHB_B_OLD_CSBCNT 3; Else, restore count 
50 E—C60 DF OF aaet $36 REMQUE a@GHB$O O16 CSBS+ - ; Remove oldest entry 
O6CC 30 1401 3658 180$: BSBW  LTSDEALPOOL ; Deallocate the CSB block 
05 1404 659 190$: RSB 


' 
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. -SBTTL LTSCREATEUCB = Create an LT UCB 
LTSCREATEUCB = Create an LT UCB 


etus sit 


| 
Create a UCB by cloning it from the master UCB zero and 
initialize it as part of the io database. We can't lock 
the io database for write access, because we aren't a 
process. So we just do it and hope for the best. The 
modifications ore such that code scanning the database will | 
not be fooled i y they are straight forward. It is possible 
to write code that will be confused when a new ucb appears, 
but we don't have any solution other than ‘waitin for the 
the request to come here when the database is not locked. 
he Sg probably mean that many connection attempts would 

me out. 


NB !! 
The 1/0 data base is not locked!!! 
Inputs: 
non 


Outputs: 
RS 
RO 


new UCB address 
success or failure 


R1-R4 clobbered 


Bete Ge Se Se Se Se Se Ge Ge Ge Se Se Ge Se Se Se Se Be Ge Se Se Ge Ge Ge Se Ge Ge 


Ok dd do TI 
DAA AA AA AAA AAA A AAA AAA AAA AAA AAAS 
50.00 09 00 00 00 00 09 09 00 00 SI NI NIU NPA AAAOAOAAO 
SODNA NEW SO ODNAU EW OOOO ESE wr 


SERRE RELL EERE EPP E PPP S 


91 
55 €C93 CF 00 3 L_ucBO ; Get the UCB to clone from 
00000000'GF 16 69 JSB GIOCSCLONE tes : Clone the UCB 
06 50 =€E9 694 BLBC RO,90 3; Exit on error 
$$. lS dO 695 MOVL R2, RS ; Else, copy new UCB address 
5C A Be 696 cue UCbSU_REFC(RS) 3; No refs yet! 


| 

| 

| 

LTSCREATEUCB: | 
MOVL | 

| 

| 

| 


LTDRIVER = Loc 
yOe-000 LTSOE 


1 
YUCB = Destroy an LT UCB -SEP=19 LAT. SRCILTDRIVER.MAR; 1 
san -SBTTL LTSDESTROYUCB = Destroy an LT UCB 

: LTSDESTROYUCB = Destroy an LT UCB 


Delete a ucb from the io data base that has been disconnected. 
This routine must be called at high IPL when the I/0 database 
is not in use by anyone. We are going to deallocate a block 
and if anyone has its address in a register. we are going 

to go crash with a bang. This situation is not quite the 
same as the creation case where one can be much more cavalier. 


“oe 
—-_ 
Ps] 
o,r 
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Also note, that we must ensure that the LT UCB haw been detached 
from any VT UCB, and that the REFC has gone to zero. There is 

a condition where the class driver will not detach a VT UCB 

even though the disconnect entry point is cailed. This occurs if 
Loginout has not been run yet, but is about to be run. In this 
case, the class driver will not have detached the LT UCB from the 
vT ute and we can check for that condition. 


SSNS 


The 1/0 database is NOT locked for write access, BUT the MUTEX 
is available! 


3 QO ODOC O0 0 


MEW SO ODONAUE WIN = SO OD NAN E WIN SO ODNAU EWI 0 OO NOUS W000 


Inputs: 
RS = UCB to destroy 


Outputs: 
RS = UCB address 
RO-R1 are destroyed. 


a a a dd dd 
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LTSDESTROYUCB: 
ooco cS) 555~—é=é“ ; CMPL R5,UCBSL_TT_LOGUCB(R5) ; Is this UCB ready for deletion? 
ig BNEQ ; Br if no, requeue it 
5C A B 3 TSTW UCBSW_REFC(R5) ; All refs gone? 
OD 12 BNEQ 0$ ; Br if no romyeus it 
SETBIT GvCESY PELE TEUCS. - : Else, allow UCB to be deleted 
00000000'GF 16 JSB G*IOCSDELETE_UCB ; Delete the UCB 
OE 11 ; BRB 90$ ; leave 
04 90 40 508: MOVB WUCBSC_LT_STATE KILL,- ; Enter the KILL UCB state 
0144 C5 4 UCBSB_LT_STATETRS) 
4 CLRBIT #UCBSV_LT_DEAD,- ; Clear the dead indicator 
4 UCBSB-LT“LATSTS(RS) 
014A 30 4 BSBW LTSHANGUP_UCB ; And hangup the UCB again! 
05 45 90$: RSB ; Return 
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M 6 
(ocate New LT UCB. "SSEP=1986 91:48:33 ELATYSRcHC DRIVER. Ran; 1 


-SBTTL LTSALC_UCB = Allocate New LT UCB 
*“Trsacc UCB = Allocate a new LT UCB 
Subroutine to select a UCB for a slot. 
Inputs: 


= receive buffer slot address 
= CSB address 


on 


Outputs: 
= success . failure 

= UCB addre 

= rece ve ‘buf ter slot address 

= 

N 


° 2 Ra Re oo modi tied 


—OnuIo-- 


- i pp gs et anata tdatik Onion 


“"CLRL RO 
concentrator bug 
MOVAL CSB_L_UCBLST(R8), 


Return failure if no UCB 


. 
. 
ee 
es 
* 
— 
m 
= 
wv 
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: Search the List for this CSB 


BO ODNA NEW 9 OD NONE WIN  S OD NO UE WIN 0 OD NOU EW OOOO US Ut OOO 


MOVL ; Save the address 
MOVZBL (S8_B_ max _SLOTS(R8), R1 : Get maximum in List 
1$: MOVL (R4S+) : Look in the table 
BEQL 2$ 3; A free slot, my word 
CMPB = SLT_B_SRCID(R7),- : Is this the same terminal calling 
CBSB"LT_REMID(RS) > again? 
BNEQ $ 3; No, then continue 
BRW 5$ ; Yes, then setup message again 
2$: SOBGTR Ri, 1$ 3; look again 
3388 *TEMP® concentrator bug 
MOVAL CSB_L gVCOLST (RS), 3; Search the List for this CSB 
MOVL R4, R3 3; save oe address 
MOVZBL ee B_ MAX _SLOTS(R8), R1 ; Get maximum in List 
10$: MOVL (R4T+> 3 Look n the table 
BEQL aye 10 : A free shot. my word 
SOBGTR R 3; look aga 
15$: BRW : None to Me had here, so fail 
208 CMPB SLT_B_COUNT(R7),= Is_ slo. big enough? 
sa a<SLT_8_DST "NAMLENSLT_ t “pitts + 
ok 
INC_CTR CSR. 7_LCB+LCB_B_INV_ sLovins >28 + say Y invalid slot 
BRB 3 And exit 
30$ PUSH R 3 Save the address in table 
SUBL R35, R4 3; Compute the index for this CSB 
DIVL #4, R4 ; _as a small integer 
PUSHL R4 ; Save the index too 
BSBW LTSCREATEUCB ; Create a raw lt UCB 
POPL RG ; Obtain the index 
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01 


34 


51 


LT ALC vce = 


53 8—D0 


“d 7 


54 3 
A? (9 
¢5 
00 EF 
01 1 
8F 90 
C5 
01 8E 
C5 
CS B4 
AB 
12 
58 00 
AB 96 
8F 90 
C5 
A? 9 
5 
06 1€ 
A? 90 
C5 
02 90 
C5 
05 90 
C5 
55 DD 
05 28 
CF 
C5 
55 8EDO 
01 88 
cs 
A? 9E 
81 9A 
50 =O 
81 9A 
50 = C0 
Ar 9 
0 ¢ 
a 
| 
1 9A 


ocal A 


; 
; 
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1 
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4 
5 
6 
? 
8 
9 
0 
4 
35 
34 
35 
36 
37 
38 
39 
40 
re 
48 
44 


rf 
is 
is 
50 
2) 
i 
54 
2? 
$$ 
3 
60 
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minal Port Dri 
ocate New LT U 


: Compute Ea allowed slot 


MOVB 
CMPB 
BGEQU 
MOVB 
408: MOVB 
MOVB 
PUSH 
MOVC 


POPL 
81SB 


ve 
CB 


a e-IwWo 
a 


UCBs 
#0,# 
#i5R 


#SLT c.s 
UCBSB- 


4 
UCBSB-LT_& 
ucbsu. ERREN 


#LATSC Ki SLOTSI 


1,- 
T SLOTSZ(R5) 
B BT Tet He TPtRDO= 
“cB88.L LT_ SLOTSZ (RSS. 
SLT_B_DT_SLTSIZ(R7),- 
UCBSB_LT_ SLOTSZ(R5S_ 
#UCBSC“LT“STATE RUN, - 
UCBSB-LT~STATETRS) 
#GHB_C7™STRT_SLOTL,- 
cbse LT_CORC(RSS 
#GHB_C_STRT_SLOTL,- 
GHB-TSTRT~SLOT,- 
5 CBSB"LT_CBuF (R5) 
#UCBSM_LT_DATA 


UCBSB_LT “DATAW(RS) 


40:82 


MAX 


AX/VMS Macro V04-00 
LAT. SRCILTDRIVER.MAR; 1 


and its address in CSB table 


oO we have one?, nope, too bad 
i Sere its address in CSB table 
Initialize the ucb 

; Set local ster index 

; Load remote circuit id 


Get credit total extended 
; Give ourself an extra credit for 
sending 7 start slot 
-RCRED,= ; Set slot type and credits 


Set eddiae extended to remote end 
kept as negative value 

; Reset the error counter that 

we bump as we shut dow 

; Expecting interrupts Hi online 


$ heed CSB address 
; One more UCB here 


size 


Assume ours is the maximum 
slot size 
Is remotes size smaller? 


Br if no, use ours 
Else, take remotes 


Set the initial state to RUN 
Build a start slot 

Save UCB address 

Make it look Like output data 


Save UCB address 
Force data through output slot 


; Check for the disable login flag 


8 
60$: MOVZBL 


SLT_B Bat -NAMLEN(R7) ,R1 


(R1J+°R 

RO,R1- 

nO 
SLT_T_DATA(R7) ,RO 
SLf_B’COUNT(R7) ,RO 
RD RO” 


(R1)+,R2 


; Skip to dest. slot name field 
Get size of dest. name field 
; Skip t > deck, name field 

; Get Bo. of src name field 

; Skip the src name field 

; Compute size of slot skipped 


: Get size of entire slot 


3 Compyte bytes remaining 
if no more data, do login 
Get parameter code 


Pace 33) 


LT 
vO: 


a 


an 
8 7 
LTDRIVER - Local Area Terminal Port Driver 16-SEP-1984 01:46:44 VAX/VMS Macro v04-00 Page 90 LTD 
He 000 LTSALC_UCB = Allocate New LT UCB =3eb=1 38 1:40:22 COAT SRCILTDRIVER MAR: 1 (39) v04 
13° 15FA 61 BEQL 70$ ; Br if none, assume auto-Llogin | 
D ire 86 DECL BR ; One less byte lef 
15 15F 6 BLEQ 70$ ; Br if no more data, do login 
33 } 9A 16 64 MOVZBL (R1)+,R3 ; Get size of parameter 
0 c 16 65 SUBL R3,RO ; Get remaining byte count 
if 615 16 6 66 BLEG = 70 : Br if no more data, do login 
¢ 08 160 86 MOVL R1,R4 ; Save current parameter address 
1 CO 1608 3868 ADDL R3,R1 : Skip to next parameter 
01 D1 Jove 59? CMPL Re #SLT_C_START_FLAG i; Is this the start slot flag byte? 
£4 12 161 0 BNEQ  60$ : Br if no, look for next 
OC 64 2 €1 1913 71 BBC #SLT_FLAG_V BIND, (R4),65$ ; Br if not a bind request 
161 fe CLRBIT #TT2$V_HANGOP,- ; Else, set terminal to NOHANGUP 
1617 387 ucest TT_DECHA1(RS5) >. on logout 
1610 74 SETBIT #uCcB$V_LT BO * ; Don't delete UCB after STOP slot 
161 75 ucesB_CT_CATSTS(RS) pe only f we must KILL the UCB! 
OF 64 = 01 EO Mb 6 65$: BBS #SLT_FLAG_V_LOGIN, (R4) ,80$ ; Br if login is disabled 
i? 4 578 ; Ask the class driver to log us in 
1 0114 C5 DO 1627 3880 70S: MOVL ures, tT CLASS(R5), R1 ; Class dispatch vector 
53 00002000 8F DO 16 § 881 MOVL #1a13, R3 ; Framming error with zero byte 
1481 16 16 88¢ JSB @CLASS_READERROR(R1) : Cause read error 
50 OO'8F 9A 1636 3883 80S: MOVZBL #SS$_NORMAL, RO ; Do we have a UCB for you. 
05 163A 3884 90$: RSB 
1638 +H 
logs 5B8 3788 *TEMP® concentrator bug 
1638 3888 95$: SETBIT #GHBSV_REPCREATE, - ; Set mask bit 
198 +44 GHB$L_PROTOMASK+GHB_AREA ; Repeat create of slot 
FF6C 31 1648 891 
164E 3892 ;;88 *TEMP® concentrator bug 


| 
| 
| 
INC_CTR GHB$L_PROTOCOL+GHB_AREA ; Increment protocol error counter 
BRU” 40S | 
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LTSHANGUP_UCB = Cause Terminal Hangup 0 $621 382 Mig :22 LAT. SRCILTDRIVER.MAR; 1 - (3) 04 


9 ae -SBTTL LTSHANGUP_UCB = Cause Terminal Hangup On UCB 


; LTSHANGUP_UCB = Hangup an LT UCB 


: Cause all the hangup effects on a terminal device. This should cause 
3 process rundown and deallocation of all channels to the UCB. 


ets" 


; Inputs: | 
; R5 = UCB address 
; Outputs: 
; none. 


-ENABL LSB 
LTSHANGUP_ UCB_NOW: 


; Dispatch on UCB (slot) state | 
So1sParcH _ucese. LT_STA’ °25),TYPE=B,- 


dd dd th 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOSAAOAAOAA OAS 
SIND DS DDS DDS DS TTT Be SB BPP PPP PPP PPE EE 
NN FON | “SO DDWVWIOONOOCSMMMMmMmMmmMmmmmmmmmmmmmmemmmmmmmmern 
WWAWNAWAAN AA ANNAN AIAN AANA ANDINA NAN AEM AAA MAAN 
WDODOOOOOODOOOOOVOOOOOOOOOOOOOOOOOOOOOOOM@@@OMwcdc 
WNAAINAIAIDIPINIPINPINININPININ 2 2 OO OS | SOOO ODOOCOCOCCOCOOUOWOONO 
MEW O OONOA UE WN 9 OONAUE WN OOONOULS WN O0@ 


tion 
<UCBSC uf Sate STOP ILLUCB>,- ; Already disconnected, 
; Else 
06 90 MOVB #UCBSC_LT_STATE_KILL,-=- ; Enter the KILL UCB state 
0144 C5 UCBSB_LT_STATETRS) 
LTSHANGUP_UCB: 
1F BB POSHR #*M<RO,R1,R2,R3,R4> ; Save registers 
64 AS 02 AA BICW #UCBSM_ “INT, ucBsi_ STS(R5) 3; No pater cet expected (allows | 
: RTIO to be called again 
5 44 sibs data). 
SETBIT #UCBSV_LT_HANGUP,- ; Indicate that we're shutting 
UCBSB~LT~LATSTS(R5) 3; _ down 
50 011465 0 MOVL CBSL_TT_CLASS(R5) ,RO : Class driver vector address | 
18 BO 16 B @CLASS_DISCONNECT (RO) : Call routine | 
1F = =6BA POPR #*M<ROTR1,R2,R3,R4> ; Restore the regs 
05 90$: RSB 
.DSABL LSB | 


thst i 
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Terminal Port Driver 16-SEP-1984 01:46:44 VAX/VMS Macro V04-00 Pp LTC 
T = Port Disconnect ee Ot: :22 CLAT.SRCILTDRIVER.MAR; 1 or (35) v4 


‘i -SBTTL LTSDISCONNECT = Port Disconnect 

; LTSDISCONNECT = Disconnect the terminal Port driver 

Port driver entry to disconnect a terminal. called when 
Last reference is gone. here we free the slot in the buffer 
And bump the sequence number. also we set the UCB offline. 


; Inputs: 


RS = UCB address — 
RO -> lbc = delete UCB 
RO => Lbs = do not delete UCB 

Outputs: 


R5 = UCB address 
ALL other registers are preserved. 


Implicit inputs: 
UCBSB_LT_STATE = KILL => kill UCB immediately. 
TOP => send stop slot, then kill UCB. 


27? => all others, set to STOP state. 


VK 
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LTSDISCONNECT: 
Z : Do not touch the UCB if it is the template UCBO 
EAFS CF 655)—oD 5 CMPL —s—«R5S,, GHB_L_UCBO ; Is this the template ucb ? 
23. «13 366 BEQL 46©=-:«90$ : Br if yes, don't touch it! 
968 : Dispatch on our UCB state 
969 . 


$DISPATCH UCBSB_LT_STATE(RS),TYPE=B,- 


<- ; state ; action 
<UCBSC_LT_STATE_KILL 50$>,- ; KILLed, just kill the UCB now 
SUCBSC_LT STATE STOP 90$>,- ; STOPed, we've been here before 


3; ALL other states, 


If the circuit is gone, or there is no CSB for the UCB 
then just delete the ucB immediately 


TSTL YCBSL_LT_CSB(R5) : Do we have a circuit? 
BEQ 0$ 


o 
— 
Ww 
LS 
~o 
ou 
_—o 
wu 


L ; Br if none 
; Conditionally skip deallocation of UCB, on ‘‘hangup’’. 
BLBS 


DODO NWWWIWIWIWIWI DO OH OOO OO DO NIPPON NININPPINIPIPYINYININYININPIPIPIPUPIPOPUPIPUPIPININD 


10 50 3 RO,90$ ; Br if not to “*hangup’’ UCB 
03 «(90 MOVB #UCBSC_LT_STATE_STOP,- ; Else, set STOP state, 
0144 ¢5 UCBSB-LT~STATETRS) : to send STOP slot 


wOowoOwowoowowowowowowowowowowowowowowvovono 


ono 
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; Make sure that no data is given to CLASS driver, after 
; we've been here! 


SETBIT #UCBSV_LT_HANGUP, - : Indicate that we're shutting | 
UCBSB~LT“LATSTS(R5) > down 


PDAEAAXAAAAAAAAAAAAAAAASAAAAAAAAAAAAAAAAAAAAAAASAAAOSAAAAOASASAOAAS Om 


a kk a a a kk a kk dk dd dd od OU 
fe tet Fe ttt tet tt DD RRR RRR yy iy iy ey iy i i | 
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a at a tt 


errr ee el lee ee cS _000”0°™C —n_—_——S———— ; co 


Ff 
[TED EStoNNECT  e"post pisconnere” "BrSeb=18Be 91:28:33 HUAI MeRcHERiveR man; = P2898 (23, 
03 11 1697 399 BRB «90S ; Delete UCB when STOP is sent: | 
0001 30 1699 3996 sos: BSBULTSKILLUCB ; Get rid of the UCB now | 
05 189 998 90S: RSB ; Done 
169) 3999 


sets 


SB 


30 
30 
E3 


11 


ie] 
K 
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al 1 mi th 9 01:46:44 VAX/VMS Macro V04-00 Page 94 — 
LLUCB = Delete a dried up UCB “SEP=1984 11:40:22 CLAT.SRCILTDRIVER.MAR;1 (38) | 
169D 4001 -SBTTL LTSKILLUCB = Delete a dried up UCB 

169D 4 ¢ p++ 
1990 : 7 ; LTSKILLUCB = Delete an LT UCB 

1690 4 $2 ; The UCB is all dried up one way or another. So we must delete it if 
169D 4 § ; possible, else put it on the deadlink List to be deleted on the next 

169D 4 3; timer tick. 

169D 4008 ; 
169D 4009 ; Inputs: 
169D 4010 ; RS = UCB address 

169D 4011 ; 
169D 4 1 ; Outputs: 
1690 4015 ; R5 = UCB address 

169D 4014 ; ALL other registers preserved. 
169D 4015 ; 
169D sgt8 aaa 
169D 401 | 
169D 4018 LTSKILLUCB: 

1690 4019 PUSHR #*M<RO,R1,R2,R3,R4> ; Save some volatile regs 
169F 4020 BICW #<UCBSM_INT! = ; No interrupt expected 

16A0 4021 UCBSR_ORL INE>,~ ; Not online, but free now 
1949 1856 CBSL_STS(R ; For use again 
16A3 402 BSBW TSFLOSH_DATA ; Flush all output data 
16A6 4024 BSBW LT$SIDELTNEUCB ; Set the UCB aside from the circuit 
16A9 4025 BBCS #UCBSV_LT_DEAD,- ; If we already Linked UCB to deadlist 
16AB 4026 UCBSB_CT CATSTS(R5),20$ ; then we have made an error 
16AF 4027 SETBIT #GHBST_REPDISC,- ; KILLUCB called twice 
16AF 4028 GHB$L_PROTOMASK+GHB_AREA; 
1685 4029 INC_CTR GHB$L_PROTOCOL+GHB_AREA ; Increment protocol error counter 
16BF 4030 BRB 90$ ; 

16C1 4031 208: 

16C1 1338 ; We must destroy the UCB (not called from $DASSGN, so queue the. 

16C1 403 ; UCB to the deadlist so it can be deallocated by the timer service. 

16C1 4034 ; This is because the CLASS driver still uses the UCB even if we 
196! tea2 ; deallocate it! 

16C1 4037 MOVL GHB_L_DEADLINK,=- ; Link UCB into chain of dead UCBs 

16C5 4038 UCBSL“LT_DEADLINK(RS) ; for disposal at timeout 

16C8 4039 MOVL R5, GAB DEAD, INK 3 

16CD 4040 90$: POPR #*°M<RO,R1R2,R35,R4> ; Restore the regs 

16CF 4041 RSB 
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3 ‘ -SBTTL LTSSIDELINEUCB = Set a UCB aside 
LTSSIDELINEUCB 
Functional description: 


met 
= 
wr 
“Oo 
—m 
oe 


FABAOOAAAAOAAAOAAOAAOAAASASOSOSAS Mm— 
WMMMMMOCOCVOTVVTVTIVTIVIT TT 9 9C°9°co°0°9°9"90C0C0"°9"7 


Set ag aside to dry up on its own. Disconnect it from a running 
circu 


Inputs 
4 RS = = UCB address 


Outputs: 
no 
ALL registers preserved. 
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4 
4 
4 
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4 
; 
5 
; 
5 
5 
5 
5 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
? 
? 
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NR OOD NAWE WN OOO NAME WI O ODNOAUNE 
s 
a 


LTSSIDELINEUCB: 
Hh BB PUSHR #*M<R3,R ; Save registers 
54 0134 C D 0 MOVL UCBSL “tt “tsBcrs), ; Get the CSB address 
MR 1 0 BEQL 0$ ; None, this is already done 
53 0141 C 9A 0 MOVZBL yess -LT_LOCID(RS), R3 ; Use the local slot index in UCB 
68 A443) DG 0 CLRL CSB UCBLST~4(R4) ERS 3] ; to adjust state of UCB List o csB 
0134 ¢5) 4 0 CLRL ucBsL-L CSB(R5) 3; Remember we have been here 
20 AG) O97 0 DECB CSB_B bere (R4) : One less UCB on this circuit 
ae 0 BNEQ 1 ; We have more UCBs here 
0044 3 0 BSBW LTésropciac ; Then don't wait for return traffic 
18 BA 071 10$: POPR <R3,R4> ; Restore registers 
05 0 RSB ; Return to caller 
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LTSCIRCDEAD = Declare éircuit dead -SEP-1984 11:40:22 CLAT.SRCILTDRIVER.MAR;1 (60) | 
16) ¢ a -SBTTL LTSCIRCDEAD = Declare circuit dead 
18F1 c 16 S LTSCIRCDEAD = Declare circuit dead. 
16F1 4 28 > Functional description: 
16F1 4080 ; Log off all the processes on each UCB and vaiting for them 
16F1 4081 ; to free their UCBs. This will cause the CSB to go free too. 
\er 2 gi 3 If this CSB has no ucb's attached, then the c§8 s just cleaned up. 
16F1 4084 ; Inputs: 
16F1 4085 : R8 = CSB address 
16F1 4&4 g: : 
16F1 4 : Outputs: 
16F1 4 $ ; ALL UCB’s hungup. 
16F1 4 3 : 
16F1 4090 ;-- 
16F1 4091 
16F1 4 3 LTSCIRCDEAD: 
O3FF B&F 16F1 409 PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,RB,RI> ; Save registers 
2D AB 93 16F5 409% TSTB SB 8 B_REFC(RE) ; Do we have any UCBs? 
3 1 16F8 4095 EQL : Br if no, so deallocate CSB 
57 69 A 9A 16FA 4& 38 MOVZBL Co BAAN SLOTS(R8), R7 ; Else, number of UCBs to scan 
56 6C AB ODE 16F 409 OVAL CSB L-UCBCST (RB), R6 : List of the UCBs 
8 pd 1 4098 208: MOVL (R634, R ; Get next UCB address 
0 18 17 4099 BGEQ 60$ 3; Not system address 
FF44 30 1707 4100 BSBW LTSHANGUP_UCB_NOW 3 penne the process on this UCB 
FS S57 FS 17RA £19 60$: SOBGTR R7, 20$ ; For all the units here 
OSFF 8F BA 170D 41 § 90$: POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9> ; Restore registers 
05 VN} tide RSB 3; Return to caller 
WI £138 : Refc has gone to zero, send a stop message 
54 58 DO 1712 4108 100$: MOVL RB, RG ; Setup CSB address 
18 10 1715 4109 BSBB LT$STOPCIRC : Send a {step message on circ 
F4 11 Hat 2119 BRB 90$ ; And exit 
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Lome | 
a 
ar 
“no 
— 
oe 
De + De 


A 
l 
4 $11? ee -SBTTL LTSSTOPCIRC = Transmit stop message 
4 aii ; LTSSTOPCIRC = Transmit stop message 
1 cit? ; Functional description: 
17 ‘119 ; Format and transmit stop message 
3 | 
1719 4121 ; Inputs 
1719 41 ¢ ; R4 = CSB address 
ay a ? 3 CSB_L_STOPREASON addr of stop reason block | 
1719 4125 ; Outputs: 
1719 41 $ ; none | 
1719 41e7 ; | 
1719 e139 | 
1719 4130 DEFREASN: | 
69 60 (1 $5 74 29 $3 64 6F 4E 00° 1719 4131 «ASCIC /Node terminated circuit./ 
69 75 63 72 69 63 20 64 65 74 61 1799 
¢ 1731 | 
; 1533 41 | 
17 ; 2138 LTSSTOPCIRC: | 
garF of BB 17 4134 PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9> =; Save registers 
B34 (BO 1736 4135 MOVL . ; Set CSB addr in r8 | 
20 A8 95 17 41 $ TSTB CSB_B_REFC(R8) ; We are not supposed to send 
06 13 #173C 41 BEQL 10$ 3; stop messages with 
173E 4138 DEBUG 3 outstanding ucbs on circ 
0B AB 91 «+1744 «4139 108: CMPB CSB_B_STATE(R8) ,- ; Have we been here before? 
99 1747 4140 #CSB_C_STATE_HALT ; | 
0 12 1748 4141 BNEQ 15$ ; Br if no 
008A 31 174A 7136 BRW 90$ ; Else, exit | 
66 AB 01 BO 174D 41435 158: MOVW #1,CSB_W_TIMRESET(R8) ; Set timers for quick timeout 
50 A 01 0 1751 4144 MOVW #1,CSB_W_TIMEOUT(R8) ; 
00 90 1755 4145 MOVB #CSB_C“STATE_HALT,- : and set state to halted 
0B AB 1757 4146 CSB_6 STATE (RS) : 
0 A8 4 1759 414 CLAW CSB_W_LOCID(R8) : Zero the local ID 
50 4 A8 E 175C 4148 OVA CSB O_xBUFaCRS), RO ; Transmit buffer queue 
57 0 Bo 4 1769 2133 RERQUE 9180). R : Bo we have 8 free buffer? 
: Yep, go 
57 3c v4 of 1796 $13! oe 25200 RUALTOLRE) , R7 3 Get a usitte bfr 
3 so use 
176 4138 DEBUG : ALC buffers gone????? 
59 ae 97 17 4154 ¢ps: DECB C58 B_XMTCNT(R8) ; One less buffer on waitq 
60 6 OE 1775 4155 308: INSQUE (R7J,~ (RO) ; Make it a free buffer 
59 57 pO 1778 $138 MOVL : Save bfr header adr 
57 48 A7 3 1778 415 MOVAB XMf_T_DATA(R7), R7 : Stop message data 
0 177F $138 vB #MTYP~C_HALT@FLAG_V_MTYPE,- ; Send a HALT message 
CA 1781 415 CSB_B~FCAG(R8) ; 
DA 94 1783 4160 CLRB CSB_B_NUM_SLOTS(R8) ; No slot data 
53 OA 9E 1786 4161 MOVAB XMT-T_MDATA(R9), R3 ; Set default end of data 
83 94 178A 2198 CLRB (R3)+ : Set default reason code 
50 BAAF 9E 17 416 MOVAB DEFREASN, RO ; Store a default text string 
51 0 9 17 4164 MOVZBL (RO), R1 3; the count 
1 6 1795 4165 NCL R1 : including the count 
63 60 1 1795 4166 MOVC3 RI, (RO), (R3) 3 move count and string 
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al Area Terminal Port Driver 16-SEP-1984 91: $6:56 yAtives Macro v04-00 
OPCIRC = Transmit stop message “SEP-1984 11:4 LAT.SRCILTORIVER.MAR; 1 
1799 4167 pyyt ie L STOPREASON(R8), R6 3; Do we have a reason 
179D 41 8 cat ; No reason 
179F 41 Rov vi 6 ; Set the reason bit 
1 41 y sons O ROTOMASK*GHE AREA : and count the error 
1 41 TNC CTR a L is rayon AREA tas a halt 
1 $176 ; Store the reason code 
1 417 STOP 6, RCODE+xMT TLMDATACRO) = 
1 4174 MOVZWL tRODe ; Offset to the string 
1 4175 DDL R6 how’ ; Set the address 
1 £178 MOVZBL (rb), R1 : Get the count 
1 417 NCL a4 : and set the count 
1 $178 Movc3S Ri 3 copy the counted string 
: a 8 408 STOP. 6 ORLEN*XMT_ T_MDATA(R9) ; Leave r3 pointing beyond 
1 4181 MOVL R3, CXBSL_T_ENDADR(R9) ; and store in buffer 
1 41 ; MOVL R8B,R4 ; copy CSB address 
1 41 BSBW LT$xMIT and transmit the msg 
1 4184 50$ POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8, Rd> ; Restore registers 
: 3 2 RSB ; Return to caller 
1 4187 ; Stop message sent once 

; Just wipe now 
! a : Just wi $B 
1 £180 90$: MOVL RB, R4 ; CSB address to R4 
1 4191 BSBW LTSDEALOCSB ; Deallocate CSB to pool 
: 213s BRB 0$ ; And exit 
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LTDRIVER = Local Area Terminal Port Driver 16-SEP-1984 01:46:44 VAX/VMS Macro V04-00 Page 99 — 
yon O08 [TSSET-TIMER - Start Timer mi iets 7 oid :22 PEAT SRCICTDRIVER MARS 1 ' (62) | 
1708 $133 ie -SBTTL LTSSET_TIMER = Start Timer 
120 4197 : LTSSET_TIMER = Start the timer | 
120 4 % : Functional description: 
At 2 0 ; Start timer ticking to scan the CSB's for dead circuits | 
17DF 4 ‘ : Inputs: 
oe ? Be 3 RO-R2 available 
128 4 06 : Implicit Inputs: 
WF 4 08 ; IPL = LATSC_IPL (8) 
17DF 4210 : Outputs: 
17DF 4211 ; RO-R2 are destroyed. 
17DF 4 \¢ ; 
por asta 
17DF 4215 LTSSET_TIMER: 
50 E8F9 CF QE I7DF 4 18 MOVAB GHB_G_TQE, RO ; Address of timer queue element 
01 €E2 1764 421 BBSS #GHB_STS_V_ACTIVE,- :; Br if timer already active 
E99B CF 17E6 4218 GHB-B_STATUS, ; __and mark as active 
000D ‘CF 8 88 I7EA 4219 BISB #DPTSM_NOUNLOAD ,DPTSTAB+DPTSB_FLAGS ; Make driver unloadable 
0 B60 I17EF 4220 MOV #TQESC_LENGTH,- ; Setup timer queue entry block 
08 AO 17F1 4221 TOESW_SIZE(ROS ; For its first use 
OF 90 17F3 4 ; MOVB #DYNSC_TQE,- ; With both the size and the type 
OA AO ire 4 TQE$B_TYPE(RO) 3 Code. 
38 BB 17F7 4224 PUSHR #*M<R3,R4,R5> ; Save the fork context 
55 50 00 A ? 2 MOVL RO, R5 ; Use TQE as a fork block 
17FC 4227 ; Use the TQE as a fork block to start the timer. This is because the 
17FC 4228 ; timer must be started at or below QUEUEAST to synchronize access to the 
re ? ; 3; TIMER QUEUE. 
06 90 17FC 4231 ° MOVB #IPL$_QUEUEAST,- ; Set delivery IPL 
OB A 17F 4 ¢ FKBSB_FIPL(R5S) 3; of fork block 
08 10 130 4 SBB 40$ ; Create fork process 
E91D CF QO1 CE 1802 4234 MNEGL #1,GHBSL_TIM_ACT+GHB_AREA ; Mark the timer as active for LATCP 
38 BA 1807 4235 OPR #*M<R3,RZ,R55 ; Restore our context 
05 1809 4 $ 10$: RSB : And return 
1808 d 
1 BA 4 § : Fork process to start the timer. We need to go to synch from 
180A 4240 ; fork ipl to start the timer. We do this by going through 
: - 2 ‘3 : Queueast IPL to be safe - using the TQE as a fork block. 
180A 4243 ° 
00000000'GF 16 180A 4244 40$: JSB G*EXESFORK ; Fork to start the timer ticking 
1810 4245 DSBINT #IPL$_SYNCH ; Raise to syne 
1853°CF 9E 1816 4 6 MOVAB W*LTSTICK,- ; Address of tick routine 
C AS 1BIA 424 TQESL_FPC(RS) : is the fork pc 
00000000'GF D0 1 1S 4 $8 MOVL G*TTYSGL_DELTA,- ; The tick time is from tty sysgen 
20 a 1 424 TOQESQ DECTA(RSS ; _parameter for modem contro 
05 90 1824 4250 MOVB eraest SSREPT,- ; Repeating tick 
0B A5 1826 4251 TOESB_RQTYPE(RS) : | 
| 
| 
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LTDRIVER - Local Area vorginel Port Driver 16-S 1:46: AX/VMS Macro V04-00 Page 10 
Won OU8 [TSSET-TIMER © Start Timer Breer obs 91:28:33 FAXTMES Hace VOR OO oe 108, 
8 8098 i 7D 1828 4 3 MOVQ GTEXESGO_SYSTIME RO : Set the tine 
“Gt CO 180F 4 ADDL  G*TTY$SGLIDELTA, RO ; from n 
0 o8 1 § 4254 ADWC #0, RI ; Carry to. top Longword 
00000000'GF 16 1 4255 JSB G*EXESINSTIMQ ; Queue the timer element 
183F 4 2$ ENBINT ; Restore IPL and Leave 
05 1842 425 RS 
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~SBTTL LTSTICK = Timer Service Routine 
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3 LTSTICK = Timer Service Routine 
Functional description: 


Enter here on each timer tick. We scan the CSB table and 
timeout each UCB with a matching CSB for each CSB that has 
timed out. For each receive on a circuit that has not timed 
out we will reset its timer. 


al 
CK T 
1843 4 
1843 4 
1845 4 | 
1843 4 
1843 4 | 
1843 4 
1845 4 
1843 4 
1843 4 
18435 4 
1843 4 
1843 4 Inputs: 
1843 4 R5 = TQE address 
1843 4 
18435 4 IPL = TIMER 
13 4 
1843 4275 ; Outputs: 
1843 427 RO-R4 are destroyed. 
1843 427 
1843 4278 ;-- 
1843 4279 ENABLE LOCAL_BLOCK 
1865 4280 | 
1843 4281 STOP_TQE: ; Stop the TQE 
OB AS 04 BA 1843 4 8 BICB #TQESM_REPEAT,TQESB_RQTYPE(RS) ; Clear the repeat flag 
OOOD'CF 04 BA 1847 428 BICB #DPTSM_NOUNLOAD ,DPTSTAB+DPTSB_FLAGS ; Make driver reloadable again 
E8D4 CF D4 184C 4284 CLRL GHBSL_TIM_ACT+GHB_AREA ; Tell LATCP we are no Longer 
1850 4285 3 active 
01DB 31 1850 4286 BRW 300$ ; And leave 
1853 4287 | . 
1853 4288 LTSTICK: 2 
1853 4289 DSBINT #LATSC_IPL ; Raise to synchronize LAT aval 
OFEO 8F BB 1859 4290 PUSHR #*M<R57R6,R7,R8,R9,R10,R11> ; Save all the registers MP 
01 €1 185d 4291 BBC #GHB_STS_V_ACTIVE,- : Br if we went inactive MT 
EO £922 CF 199 ‘ 3 GHB-B_STATUS ,STOP_TQE a 
1863 4294 ; Scan all CSBs to retransmit in balanced mode and time out circuits MT 
186 ; 32 ; that appear to be dead. pl 
5B 20 »vd0 1863 4 39 MOVL #LATSC_MAX_CSBS, R11 ; Scan the CSB table for NE 
SA E7CE CF DE 1866 4298 MOVAL GHB_L_CSBTABLE, R10 3 Active entries and ch ck ON 
58 8A DO 1868 4299 208 MOVL (R10)F , RB ; Get the CSB address ON 
43 1% ? 0 BEQL 90$ ; Br if no CSB in this slot os 
H {4 4 ¢ : Are we coming out of balanced mode and need to retransmit the OR 
, ; ? 3 First message again?? oe 
02 OB AB 91 1870 4 ? CMPB CSB_B_STATE(R8), - ; State must be running PH 
1874 4 $ #CSB_C_STATE_RUN : _ for active circuits PO 
26 «612 «1874 4 BNEQ ; Br if not PO 
52 a8 85 1 26 4308 TSTW CSB_W_XMTTMO(RB) : Timing out restart message? PO 
13° 1879 4309 BEQL $ ; Br if no PO 
52 AB B87 187B 4310 DECW CSB_W_XMTTMO(RB) : Check for timeout PO 
~—s ww 3 43 4311 BGTR 60$ ; Br if not time yet | 0 
1 ; 4 \§ INC_CTR GHBSL_RETRANS*+GHB_AREA ; Count a retransmission PO 
188A 431 INC“CTR CSB_2°LCB+LCB_L_MSG_REXMT(R8) ~~ ; ae PR 
54 38 90 1 3 4314 move R8, RS ; CSB address for call PR 
020 1895 4315 BSBW Ss LTS$REXMIT ; Transmit the message PR 
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LTDRIVER = Local Area Terminal Port Driver 16-SEP-19 1:46:44 VAX/VMS Macro v04-00 Page 102 | 
vOu~000 irstiek - Timer Service Routine 3p] 98e ti 722 ECATSSRCILTDRIVER MAR; 1 : (68) 
52 a8 02 80 38 4 1 MOVW  #LATSC_HOST_TIMER,CSB_W_XMTTMO(R8) ; Reset the timeout | 
! ae : 18 ; Timeout circuit if needed 
50 A B7 189C 4320 é0s: DECW SB_W_ TIMEOUT (RB) 3; Check the circuit timeout 
1 12 189F 4321 BNEQ $ ; Br if not expired 
18A1 4 § INC CTR GHBSL_CIRCDOWN+GHB_AREA ; Count circ down event 
FE43) 30 18AB 4 BSBQ LTSCIRCDEAD 3 Declare the circuit dead 
66 AS BO I18AE 4324 MOVW CSB_W_TIMRESET(R8),- ; Reset the timeout to wait 
50 A8 1881 4325 CSB_W_ TIMEOUT (R8) i; a while. 
B5 5B «6FS «61883 4 § 90$: SOBGTR R11, 20% 3 Loop till we are done 
1386 4 
1886 4328 ; 
1886 4329 ; Now check to see if there are dead ucbs waiting to be cleaned up 
1886 4350 ; and if noone is using the io database right now, we can delete them 
1886 4331 ; all in a flash. 
Hae 
50 Q0000000'GF DE 1886 $3 4 100$: MOVAL G*IOCS$GL_MUTEX, RO ; Is anyone ouning the io data 
FFFF 8F 60 81 188D 4335 CMPW = MTX$W_OWNCNT(RO), #-1 ; base? If so, then we must 
1A 12 «#418C2 «44336 BNEQ 130$ ; try again later. 
54 EBA8 CF DO 18C4 $336 MOVL GHB_L_DEADLINK, R4 ; Good we own it then 
E8A3 CF D4 1809 4338 CLRL GHB_L_DEADLINK ; Reset list pointer 
54 DS 18CD 4339 110$: TSTL R4 ; Any work to do? 
OD 13 18CF 4340 BEQL 130$ ; ALL done 
55. 54 DO 18D1 4341 MOVL R4, R5 ; UCB to delete 
54 0138.(5 DO 184 4348 MOVL  UCBSL_LT_DEADLINK(RS), R4 ; Save Link to next one 
FCOE 0 1809 434 BSBW LTSDESTROYUCB ; Destroy this UCB 
EF 11 18DC 4344 BRB 110$ 3; and go back for more 
18DE 4345 
18DE 4346 130$: 
18DE 4347 
18DE 4348 ; 
18DE ret 3 Transmit a configuration message if its time. We tell all 
18DE 4350 ; concentrators our node name, announcement string every 
18DE 4351 ; so often so they know we exist. 
18DE $326 ; 
18DE 435 | 
EAF8 CF 87 1306 4354 DECW GHB_W_MULTIMR ; Time to transmit? 
15 18€2 4355 BLEQ 1508 : Br if yes, do it 
014731 1864 4396 140$:  BRW 300$ ; Else, still time to go | 
52. AF CF 00 18E7 4358 150$: MOVL SHB L_MULTIBFR, R2 ; Get muiticast buffer 
OD 13 18EC 4359 EQL 15 ; Br if none 
18EE 4360 ASSUME GHB_STS_V_MULTI EQ 0 
F1 €892 CF E8 18EE 4361 LBS GHS~B_STATUS,140$ : Ignore, if already in progress 
4E A2 E88E CF 91 18F $356 CMPB GHB_B_INCARN, - ; Has it been rebuilt? 
18F9 436 XMT~B-MC_INCARN(R2) : so, incarn has been 
96 13° 18F9 4364 BEQL 1608 ; _bumped to say so 
FO 30 18FB 4365 155$: BSBW LTSSETENTRY : Go rebuild the message 
c 50 34 1 Fe 4 98 BLBC P ; Br if failure 
EAD2 CF €885 CF 1901 4367 160$: MOVZBW <XMT_B_MC_MULTIMR-XMT_B MC_SET>= ; Reset multicast timer 
1908 4 68 +GHB_T_MC_DATA,GHB_W-MOLTIMR— ; from LATCP set data 
3 12 1908 4 8 BNEQ 1$ ; Br if value is okay 
ACB CF A 8B 13 4370 MOV #LATSC_MULTI_TIMER,GHB_W_MULTIMR ; Reset timer 
2 €EACo CF OD 1Z0F ; 4} 161$: MOVL GHB_L_AULTIBFR, R2 ; Get multicast buffer 
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vba tt crétiek - Timer Service Routine -SEP-1984 Rid :22 CLAT.SRCILTDRIVER.MAR;1 . (63) | 
1313 é te ; Adjust host rating 
51 54 A2 YE 19146 4375 ° MOVAS XMT_B_MC_GRP_LEN(R2), R1 ; Compute address of node name: 
0 1 9A 1918 4 4 MOVZBL (R1IT+, RO ~ 5 get count of groups 
1 50 CO 1918 437 ADD nO, RI ; . add in start address 
0 1 A ba 4378 MOVZBL (R1)+, RO ; Compute address of node desc. 
51 0 0 19 4379 RO, RI : . add in start address 
50 1 A 19246 4380 MOVZBL (R1)+, RO ; Cale start address of services 
31 0 CO 1927 4381 RO, Ri : add in start address 
4 1 p00 192A 4 Hf MOVL R1, R4 ; Save address of service count 
02 1 91 192d 438 CMPB (R1)+, Wo ; Do we have two service names? 
03 8 19 4384 BGEQ 193 ; Br if yes, process it 
OOBE 1 #19 4385 BRW 170$ ; Else, skip it 
51 D6 19 4386 1638: INCL R1 ; Skip rating byte 
50 81 9A 6444 4387 MOVZBL (R1)+, RO : Cale start of first svc desc. 
51 50 CO 193A 4388 RO, Ri ; Pe 
50 81 QA 1930 4389 MOVZBL (R1)+, RO 3; Cale start of second svc rate 
51 50 CO 1940 4390 0, Rf ; aa 
194 4391 
1943 $328 ; Compute the service rating as follows: 
1943 439 ; 
1943 4394 3 cpu_idle_time * 255 
1943 4395 5 eee ewww ese ewww eonoes ra cpu_weight 
1943 4396 : 100 * multicast timer 
1943 4397 : 
1943 4398 3 | 
1943 4399 ; where: cpu_weight is 1 fo» # 790, 1/2 for 785, 3/8 for 780, etc. | 
1923 Geos | 
50 E82E DF E835 CF C3 1943 £288 SUBL3 GHB_L_LASTCPU,@GHB_L_NULLCPU,RO ; Calculate ‘‘idle time” 
E82A CF €829 DF DO 1948 440 MOVL @GHB_C_NULLCPU,GHB_L_LASTCPU ; Set new last cpu time 
56 00000000' GF 9 1952 4404 MOVL G*EXESSL_MP,R6 ; Get ptr to MP code 
17 1 1959 4405 BEQL 64$ ; Br if not there 
E821 CF C3 1958 4406 SUBL3 GHB_L_NULLSEC,- ; Else, compute secondary idle 
57 0000'C6 195F 4407 MPSSGL_NULLCPU(R6) .R7 : time 
0000'C6 DO 1963 4408 MOVL MPS$GL_RNULLCPU(R6),- ; And set new secondary 
E8%6 CF 1967 4409 GHB_L_NULLSEC ; _ null time : 
57 57 FF 8F 78 196A 4410 ASHL #-1,R7; : Get 50% of secondary null time 
50 57 C2 196F 4411 SUBL R UR ; Let secordary account for 
13¢8 1238 ; . only 50% additional power P 
50 sone 8F C& 1972 44135 164%: MULL #255,R0 ; Multiply by highest rating possibl | 
53 01 «9A 1979 4414 MOVZBL #1,R3 ; Start_with 1 | 
197C 4415 CPUDISP <<?90, EIGHT>,- ; Give 790 the highest rating 
197C 7218 <785, FOUR>,- 3; Rate 83 as four 
197C 441 <780, THREE>,- : Rate 780 as three 
197C 4418 0, TWO>,- ; Rate 750 as two 
197C 4419 <730, ONE>,- ; etc. 
197C 4420 <UV1, ONE>> : 
19AE 4401 | 
53 04 CO 19AE 44 § EIGHT: ADDL #4 ,R3 ; Rating will be highest 
5 D6 1981 4423 FOUR: INCL > next rating 
5 D6 1983 4424 THREE: INCL R 3 etc. 
5 D6 1985 4425 Two: INCL R 3 
1987? 44 § ONE: 
30 3? C4 44 44 MULL R3,RO ; Compute adjusted rating 
50 90000 20 F (6 19BA 4428 DIVL #860,R0 : Divide by highest rating + % | 
53 E7C5 CF 9A 19C1 4429 MOVZBL <XMT_B_MC_MULTIMR-XMT_B_MC_SET>= ; Get multicast timer 
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rminal Port Driver 16-SEP-1984 & 74 
r Service Routine -SEP-1984 11:4 LAT. SRCILTDRIVER.MAR; 1 mess 
38 TAC DATARS 
DIVL R3,R : Normalize rating by time 
BEQL 18 $ : Br if zero ratin 
CMPL RO,#255 i Ridiculous rating ? 
BLEQ 16? ; Br if no, continue 
MOVZBL #254,R0 : Else, set highest rating 
1658 ; let INCL up it to 255 
; Don't let reer fall to zero, unless the mg bh is reached 
; or the jobcnt if greater than or eqal to the joblim. 
INCL RO H e, set to minimum 
167$:  CMPW G*SYS$GW_IJOBCNT.G*SYS$GW_IJOBLIM ¢ es we maxed out? 
BLSSU 169% ; br if no, continue 
CLRL RO ; Else, set to mimimum 
169$:  CMPB RO, (R1) 3; New second service rating? 
BEQL 176$ : Br no 
MOVB RO, (R1) ; Else, set new 2nd svc rating 
BRB 175$ 
170$:  CMPB G*SYS$GW_IJOBCNT, 1(R4) ; New number of interactive 
3 users? 
BEQL 180$ :; Br if no 
175$: MOVB G*SYS$GW_IJOBCNT, 1(R4) ; Use the snteractive count 
3 as the second rating 
INCB XMT_B_MC_INCARN(R2) ; set new incarnation 
INCB GHB-B- INTARN 3 no call LISSETENTRY next time 
XORB axmT _CHFLG ra RATE, XMT_B_MC_CHG_FLAG(R2) ; flag rate change 
180$: MOVL HB_L_FFI, R4 3; Get FFI block address 
BEQL : Br if none 
SETBIT 4 we STS_V_MULTI,GHB_B_STATUS ; Indicate that multicast is active 
MOVL R ; Copy CXB address 
MOVQ Gaba MULTIADD 3; Copy the destination address 
CXBSQ~STATION( (83) ; 
ASSUME Pitt W"BCN NT EQ CXBS$ F+2 
MOVL CXB$W_BOFF(R3), CKBSC” ? AVE (R3) ; Save BOFF and BCNT 
JSB OFF ISL_XMITCR4) ; Start XMIT operation 
300$: POPR #*M<R5,R6,R7,R8,R9I,R10,R11> ; Restore the regs 
tal 3; Restore priority 
-DISABLE LOCAL_BLOCK 


AX/VMS Macro v04-00 Page 104 | 


dD 8 
LIDRIVER - Local Area Terminal Port Dri 16-SEP-1984 01:46:44 VAX/VMS M 4- 
hae ti +3 ort Driver SE 91:98:68 S$ Macro V04-00 Page 105 | 


| 
| 
LT IT = Transmit a message “-SEP-1984 LAT.SRCILTORIVER.MAR; 1 (64) | 
1A36 447 -SBTTL LTSXMIT = Transmit a message 
1ake 2099 . | 
1A36 ret ; LTSXMIT = Transmit a message | 
1A36 44479 ; 
? te ? 3 FUNCTIONAL DESCRIPTION: 
1A36 44 § 3 If the CxXB is eureteoging oe record the fact that there is 
1A36 4485 ; a waiting message. e CXB is not outstanding, then ready 
iA ? te : 3 it for transmission and hy Re to the other driver as a write. | 
1A36 44 § 3 Yarn opp adnate. must make progress. That is the qequence and acks 
1A36 tts 3 of the mpscones must chenge over time or we decide that the 
1A36 4488 ; circuit is really deadlocked and we take it down. We are generous 
1A36 4489 ; with the counter for detecting this deadlock. 
1A36 4490 ; 
1A36 4491 ; Input: 
1As6 rr 3 R4 = CSB address 
1A36 4493 ; 
1A36 4494 ; Output: 
1A36 4495 ; RO-R5 clobbered | 
1A36 ree :- 
1A36 449 
1A36 4498 -ENABLE LOCAL_BLOCK 
1A36 4499 | 
1A36 4500 LTSXMIT: 
53 34 B4 «OF 1A36 4501 REMQUE @CSB_Q_XBUFQ(R4), R3 ; Remove the buffer from queue 
06 1C ‘1A3A 2258 vc 5$ ; We had better have a buffer here. 
1A3C 450 DEBUG : Fatal error, no buffer | 
59 AG 96 rt 4504 5$: INCB CSB_B_XMTCNT(R4) : One more ve = trensatt 
62 AG =96 «(1A45 «244505 INCB CSB_B_XSEQ(R4) ; Next message t end 
5C AS =67D «(A468 «8244506 MOVQ CSB_T_CIRCHDR(R4) ,= : Set the etreult heoder for the 
48 A3 1A4B 4507 XMT_T_DATA(R3) ; message 
50 48 AS Q9E 1A4D 4508 MOVAB ~t “T-DATA(R3), RO ; Start of data to send 
1¢ AS. 50 C2 1A51 4509 RO, CXBSL_T_ENDADR(R3) ; Make Length from end address 
1¢ AS) BO 1A55 4510 MOVW  CXBSL_T ERDADR(RS) ,~ : Copy Length to CXB format | 
1A A3 1A58 4511 CXBSW_BENT ( 
40 B46 63 OE 1A5A t21§ INSQUE (R3), aCSB 4 ST UAITO#4(RS) Queue to tail of waiting buffers 
58 AG) O95 «1ASE 451 TSTB. = CSB_B_XMTBSYTR4) transmitter busy? 
3D 613) «©1A61 «24514 BEQL 60$~ ; Br if no, start transmitting 
58 AS) =696 «= 1A63 «4515 108: INCB CSB_B_XMTBSY(R4) ; Else, count another transmi 
1A66 c218 ; we just placed one on the wait queue 
05 1A66 4517 20$: RSB 
1A67 cas 
1A67 451 : . 
1007 $2 9; 3 Transmit just the one buffer, not all the ones waiting. | 
1A67 45 ¢ LTSXMI TONE: 
53 34 B84 OF 1A67 45 REMQUE @CSB_Q_XBUFQ(R4), R3 ; Get the one buffer of interest 
06 1C 1A6B 4524 BVC 30$ ; Got i 
1460 4525 DEBUG ; No buffer for this transmit 
59 AG «696 SOA 45 § 308: INCB CSB_B_XMTCNT(R4) ; Count one nore i. wait queue 
ge AS 96 1A76 45 INCB CSB_B_XSEQ(R4) ; Next message to send 
CAS =67D «(1A79) «=—4528 MOVQ CSB_T_CIRCHDR(R4) ,- ; cet the circuit header for the 
48 A WA7C 4529 KATCT-DATACRS) > message 
48 A 9E 1A7E 4550 MOVAB XMT_T_DATA(R3), RO ; Start of data to send 
1c Ad. 650 «(OC 1ARe 4531 SUBL RO,~CRBSL_T_ENDADR(R3) ; Make length from end address 
1¢ AS BO «1A86 «4532 MOVW  CXBSL_T_ERDADR(R3).- ; Copy length to CXB format 
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1A AZ 1A89 4533 CXBSW_BCNT(R3) 
58 AG) 695) «=(1A8B «4534 TSTB CSB_B_XMTBSY(R4) ; Are we ouaye 
0S 12 1A 4535 BNEQ 408" ; Br if y $0 B sein on 
58 AG «696 «1A90 «45 : INCB fsB_ B_XMTBSY(R4) S dust ene bult 
a Vi 4 $2 f BRB os~ ; Go 
40 B46 63 OE 1A95 4539 40S: INSQUE (R3), @CSB_Q_XWAITQ+4(R4) Place it on the queue 
cB Oi 1499 4340 BRB 10$ ; And transmit Later 
1A9B 1228 LTSREXMIT: 3 is'th to start a retransmit 
58 AG 95 1A9B 454 TSTB its B_XMTBSY(R4) § e transmit busy?? 
C6 {é 1A9E 45446 BNEQ 0$s~ ; Br if yes, just leave 
58 AG) «659 AG «O90 =—(1AA0 «24545 60S: MOVB CSB_B_XMTCNT(R4), - ; Start a series of retrencatts 
1AAS 4546 CSB_B_XMTBSY(R4) : 
1AA5 4547 
1AA5 4548 
1AAS 4549 55 %8 debug code 
59 AG) 691) 1AAS) 44550 CMPB CSB_B_XMTCNT(R4),=- ; ALL buffers on the transmit queue? 
02 1AAB 4551 #LATSC_XMT_BUFFERS : 
09 19 1AA9 $228 BLSS ops : Nope 
06 13 1AAB 455 BEQL 70$ : Yes all of t 
1AAD 4554 DEBUG 3; More than att x them 
01 1AB3 4555 70$: NOP 
1AB4 4556 80S: 
1AB4 4557 ;;%* debug code 
1AB4 4558 
1AB4 4559 LTS$XMTGO: ; Enter to transmit for waiters 
53 3C B4 OF 1AB4 4560 REMQUE @CSB_Q_XWAITQ(R4), R3  ; Obtain the next waiting buffer 
AC 1D 1ABB 4561 BVS 20$ : Br if no buffer to transmit 
56 AG «6B C«1ABA 1266 90$: CMPW CSB_W_PROGSEQ(R4) ,- ; Are we making progress? 
62 AG 1ABD 456 CSB" W_XSEQ(R4) ; are the seq and ack fields changing? 
1F 12 1ABF 4564 BNEQ 100$ ~ ; Br if yes, splend 
54 AG B7 1AC1 4565 DECW CSB_W_PROGRESS(R4) ; Nope, give them some time then 
23 14 «#1AC4 «+4566 BGTR 1108 ~ 3; We have more time then 
34 AG 8663 )=—OE:SCC1AC6 «4567 INSQUE (R3), CSB_Q XBUFQ(R4) ; Put the buffer Deck into the CSB 
1ACA 4568 INC_CTR GHB$L_CIRCDGWN+GHB_AREA ; Count a circuit timeout 
58 DD 1AD4 4569 PUSAL R8 : No more time. Clobber the circuit 
58 54 be 1AD6 4570 MOVL R4, RB ; Since it appears to be deadlocked. 
FC1S) = 30-«1AD9 4571 BSBW = LT $C IRCDEAD : and clean it all up 
58 8EDO 1ADC $228 POPL R8 : 
05S ADF 457 RSB 
1AEO 4574 
62 A4 =BO 1AEQ 4575 1008: MOVW CSB_W_XSEQ(R4),- ; Reset the current sequence and ack 
56 AG 1AE 4976 CSB~W~PROGSEQ(R4) > to check against 
14 BO 1AE5 457 MOVW #LATSC_PROGRESS,- : and reset the progress counter 
54 AG 1AE $208 CSB_W_PROGRESS(R4) : 
1AE9 457 
1AE9 4580 110$: 
1AE9 4581 ; 
ine) $2 § 3 Build the CXB to transmit 
55  €687 CF DO 1AE9 4584 MOVL Sue LLFFI, R5 : Get the FFI block address 
i 4585 BEQL : Br if none 
51 SA AG QA IAFO 45 § MOVZBL et B_XCXB_INX(R4) ; Get XMIT CXB index slot 
44 A441 53 DO AFG 45 MOVL “CSB_L a TEMBCRADERTD ; Save address of CXB 
51 96 IAF9 45 : INCB 3 Ski ip to next slot 
51 FE BF 8A AFB 45 BICB Pe ccLATSC _XMT_BUFFERS-1>,R1 ; Modulo maximum 
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7 
, CSB_B_XCXB_INX(R4) ; Save for next time | 
| 


SA AS 1 1AFF 4590 MOVB R1 8. . 
4 oD 1B 4591 PUSHL R&4 : Save 
DO 1B 4 35 MOVL R5,R4 ej Else, copy the FFI block address 
1808 459 ASSUME CXB$W_BCNT EQ CXB$W_BOFF+2 
14 A353 18A3 DO 18 t23¢ MOVL CXBSw- ~BOFF(R3),CXBSC_T_SAVE(R3) ; Save BOFF and BCNT 

180D 4595 : progress 
1B0D $239 olf DEFINED LT_HISTORY 
1B0D 4597 ; | 
1B0D $238 ; Save a history of transmits 
1B0D 459 P} | 

50 4B8A 43 1B0D 4600 MOVAB XMT_B_FLAG(R3), RO ; Address of data to save | 

EBE 3 18)} $68] BSBwW LTSAISTORY 3; Save the data 
1B14 rh ~ENDC 3; DEFINED LT_HISTORY 
1B14 4604 | 
10 B84 16 1814 4605 JSB aFFISL_XMIT(R4) ; Start the XMIT operation 
54 BEDO 1B17 4606 POPL R& : Restore Ré | 
05 i1BIA 4607 1508: RSB ; Return to caller 

1B1B 4608 
1B1B 4609 DISABLE LOCAL_BLOCK 
1B1B 4610 
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; ~SBTTL LTSXMT_FFIDONE = FFI Transmit done routine 
; LTSXMT_FFIDONE = FFI Transmit completion routine 
; FUNCTIONAL DESCRIPTION: 


Post routine for a transmit. Called directly from datalink 
driver with CXB address in R3. We have r0 - r5 to work with. 


: INPUTS: 
2 R 


= Status Rani request 
R35 = CXB addre 
R4 = FFI block address 
IPL = SYNCH 


; OUTPUTS: 
: R1,R2,R4,R5 clobbered 


IPL$_SYNCH EQ LATSC_IPL 


360=—s BB SHR #*M<R1,R2,R4,R 3; Save registers 
ASSUME CXB$W_BCNT ea" OFF + 
18 A3 14 A3 DO 


MOVL 
INC_CTR GHBSL ~XCOUNT#GHB’A AREA Count one more buffer away 
BLBS 0, 20$ ; Br if no error 
MOVZWL td GHBSL_XERRCOD+GHB AREA Save error code 
XERR+GHB_AREA Count one more error, but ignore it 


wm 
oo 


OF 50 
E618 CF 50 


PERERA AAAAAAAAAAAAAAAAOAAAAAAA AAAS 


PDP DD PUPP er Be BS BS BS EE EB INIA NIIP RIPOPIPNONNNIIN 2 OO OO 
FAWN OOD NAUNEWN  O OD NAME WN 9 OD NAME WIN 9 OD NAME WIN OOOO ry 


| 
| 
| 
| 
| 
| 
| 
| 
CXBSL_T cates rosy CxBsu gn : Restore BOFF and BCNT | 
| 
| 
| 


PELL LLL LLL LPL LLL LLP PPP PP PPLE P PPP PPP PEPPER PPP PPP EE 


XE A 3 
4C 0B Ad” 208: BLBS CXBSB~ CODE(R3),110$ ; Br if multicast buffer 
54 OC Ad DO OVL  CXBSL-T_CSB(R3S,R4 ; Get CSB address 
98 12 BNEQ at's 3; Got it, continue 
° MOVL ; Toss this CXB then since the 
0052 «30 6 BSBW LTEDEALPOOL : CSB seems to be gone. 
38 Séé«d1i ? BRB ; Leave quietly 
50 01 QA 647 40$: MOVZBL . ATSC_XMT_BUF FERS S-1,RO0 ; Get number of CXBs 
44 A640 53° 01 648 45$: CMPL CSB-L_XCXB(R4)CROI Same | as we sent? 
09 13 6 BEQL s "ina remove it 
F650 F4 ° DEBUG. RO,45$ oop. ; more 
44 A440) 4 652 50$: CLR CSB_L_XCXB(R4) CROJ Gatee 
6 INC” CTR CSB yak LCB+LCB L_MSG xr chad “count ene ware trencnit 
40 B4 63 3 6 INSQUE (R3J Q RWAITOT4(RG) : Queue to tail for retransmit 
5B AGO 6 DECB (SB 6. RA TBSYTRE) ; Any more to transmit?? 
9 13 6 BEQL $~ 3; Nope all don 
FF39 30 6 BSBW LISKATGO 3; Transmit tor mueites 
OE 11 6 BRB 0$ 3; Not done transmitting all yet 
? 60$: 
661 ; If all UCBs are gone and we have transmitted a stop message last, 
rh ; then we can make this CSB go away. 
4664 * 
2D A4 95 4665 TSTB C58 B_REFC(R4) ; Are all the UCB's gone? 
09 «+12 466 BNEQ : 
5C AG 91 466 CMPB CSB_B_FLAG(R4),=- Is the circuit dead? 
08 4668 pai Yenc CHALTaFLAG. v _mtyeé 
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03 12 1BB6 4669 BNEQ 708 ; Br if not | 
hg 14 30 (18 4670 BSBw LTSDEALOCSB 3; Get rid of the circuit block 
BA 1888 4671 70S: POPR #*M<R1,R2,R4,R5> ; Restore registers 
05 188D 467 RSB 
1BBE 467 : 
18 ; teee ; Multicast buffer completed 
1B8E ogre 1108: ¢LRBIT #GHB_STS_V_MULTI,- ; Multicast is not busy now 
1B8E 467 GHB _B_STATUS 
F5 11. 1894 467 BRB 70$ 3; And exit 
1896 467 
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] E 
18 ¢ 1 <a -SBTTL LTSFFIPOSTDONE = Garbage transmit posting routine 
183 Z § ; LTSFFIPOSTDONE = Garbage transmit posting routine | 
182 ? 5 ; FUNCTIONAL DESCRIPTION: | 
1B96 46 5 : Final post routine to dry up a CXB 1/0 when we are done 
189 ig } ; with the channel. We simply deallocate any transmit buffer returned. 
1896 4690 ; INPUTS: 
1896 4691 ; R3 = CXB address 
1896 4 35 3 R4 = FFI block address 
1896 4695 ; 
1839 4694 ; OUTPUTS: 
1B96 4695 ; RO clobbered 
1829 £028 s= 
1B96 469 
1B96 ree | LTSFFIPOSTDONE: 

H 88 1838 $6? PUSHR #*M<R1,R2,R4,R5> 3; Save registers 

50 DO 1898 4700 MOVL 3; Copy CXB address 

g 10 1898 4701 BSBB Ss LT $DEAL POOL : Drop the buffer 

6 BA 1890 47 § POPR #*M<R1,R2,R4,R5> ; Restore regiesers 
1B9F 4705 LTSDROPCXB: : Drop all RECEIVE CXBs 

05 1B9F 4704 RSB 
1BA iA 
1BAO0 47 $ LTSDEALPOOL : 
00000000 ' GF 17 io? rth tf JMP G*EXESDEANONPAGED ; Deallocate the FFI block 

1BA6 4709 LTSEND: 3; End of driver 
1BA6 4710 
1BA6 4711 END 


Macro V04-00 
LTDRIVER.MAR; 1 


AX/VMS 
LAT.SRCJ 


1:40:22 


' 


J 


= Local Area Terminal Port Driver 


LTDRIVER 
Symbol table 


N ~~ Nu oN mmm 

o o o oo Oooo 

4 =< 
VOoVII VV VUVUYO ooo 

a <= ee awa 

TOW TDOOUNWVY OLD T VOTO IDOVWO & VI OONOCOCO— TF ODT OST MOWMMMN DOW uOOws « 
MWNNDOWMN OM ONOOO ST — —- OK VN — O09 *£ OO -SDOOOCSCOOCOMOMSC OOK MO On TF On-wes ss # 
SOOOGOOOOOOOOOOGOOOSGOOOOSSSS £ SOR-SOOVSGOOSCOSCOSOOOOOOCOOCOSOOoOOuO # « 
SOOOSOSOOSSOOSSOSOOSSSOSOOSSSSSS #£ SO—SOSOSCSOSOOSOoooooooooooooooooer « # 
SDOOOSGOOOOSOSOOOSOOSOSCSOOOOSSSSoO « $3359 ESS 5 al 
SOOOQOOOOOOCOOOOOOOOOSOSSSOS £« SOSCOSOOSCOOCOOOOOOOOoOoOoOO “* 
SOSOOOCOSOSOSOOOOOSOOSOSOSOSOOSSSS # SOOSOSOTODOOOOSOSOOSOOSOSOOSOOOOSOOSSO « «# 
OOOO OOOOOOOOOOOOOOOSSOSOS £ OOOSSOSCOOOCOOOOSOOOOOOOOCOOOOOOOOO « « 


nnuuunn nnnnnn “uu nunnnnnnnnn " nnnnnnnnnn 


Zz 
o oa 
nw - od a oa w 
“oe mw - o z z« Oo 
wow Sat” 3 aw <xwo xz=e zo om « we 
ZrO oO w<«t war mw Yr UE OO oa 
O0—-Gwwar-oa wwe | M2eaee— uw OMwW vouMNVaea2ze- Fe ae: ez 
OCOwme Ee wir MOO COOQVwre Zu Zen OO JiosrekrvEedczZzaadsD= Vu @OO@-Qw@o wo 
Sw TFYNMVOKwsze 1) VOW FOV ZSPVvAZOwese jwwe OFZ wr moa xoaccvugc o2 
=P CRORE RRR we MEE et MEE +o 
ees etpepsceeeceeeeesvese 6 6 et QO 6 we tee eet elk lk ee lw @#eepeepenee © Ow 
BVDV BTVBIBINNOOY 44 IS BBB BF JU IWSE FSET FOV HES BOVVOVVUW uw :—*- ae 
8 8 FF 8 8 FF 6 AMAMAAHHGAAAGBAAARA WBA TARAAPAAAAAARAAAARAAAAPAAARAAAACTAHA 
BOODDOOODOOOOMOOOOOOOOOAMDOOMOOAOD*C@OOu > SSS SP Soe ee ee ee SZ SZ ZZ SZ SZ STOW 
AMMMAMNNAMMMMNWY OC OK OK OE OOK OE OOOO OE OOO WW tO OOOO ee ee ee 
ee ee ee ee ee ere eee ere lererereleier-y-)-)-1-\)-1-1-1-1-1-1-1-1-1-)- ee eee 


NN 
Qo 
=x 
e a aati 
On ao - ODK KK VM FT FE ODOYT TO Ow ate te AL ry te Sets $Date te tap te th om vers uDuvood 
MOOOOOOOCSOSO #+Oet Be SSSS SS SS SSS SOO BVO LOS WUNWNNOOSSOOT OTMMOM=-— OO 
SSSSSeeeose # SO t DOOCOOOOOOSOOSOSOSOSOSOOSSOO SS SS SSS SSS SSS SSS SSSss 
FSF SOOSOSOOSSS—- SOSSSoooosoooooooooosooo 
SSSSSSssss FOF SOOO OSOOOOOOSOOSOSOSOSOSOSOOSSOOSOSOSOSOoOSSS CSoOoOoooooooo 
tS s SoossSS SSS SSS Sooo SSS SSS SS SSS SSSSSSSSS99995 
SSSSSSSsss FOF COOSOSOCOOSOCOSOSSOSSSSSSOSOSOOSOOSOoOoOO SSSSSSSSSSSSSSSS 
“ iT) 1} 


= 
— 
S <5 
w Harn 
We 
2 ' aw 
S we 
a <5 
”- -— 
oO 


-00 


LAT. SRCILTORIVER.MAR; 1 


AX/VMS Macro V04 


t 


94:48:32 


B 


= Local Area Terminal Port Driver 


MMMMMM MMMM MMMMmmnmmy fl pl pl ll ll) 
Oooooo COCOCOOCoOoOO oooeoo 


VUVIIVIVIVUVUVYUVVUVIN 
@aeaneaan agacacacaeacaae aeaecrre 


ODO~TDVOTO VOM HME. OLD DOO VMD OP FNS DOT VODOVINE FDR RK KKK ONIM LOU OW 
He MINT VOODOO OOOOOOSOOOOOD MDOOD0 6 LMIP-F-F-. OF- DO OQOCDCOOCOCOCOCOCOO@Owwe u 
OoOoooooooooo Se BO SOO OO SSS SS 2S NI 


aa 
— 
ey =) veo 2 -_— — ws w w 
<= -- Owww o 2 - > > >e bo 
> Vw —ojuw ae _ mw oO tas ae 4 oe — ee Ot ii T=]. 4 
xe o@ec af0ijI0 cooadtcu w za ad az DuwDdDwvw oF jDwe Dwr owfSwet YUE 
Kv &- ON ECawr2zeoe ey F&F ZUeHY ww @— A@Maw ava TtOvIaTtOvusaTtorVEv> 
2a 2 Bw az JI eew > ii “48 VW Hara Evrae Evrae 1 tt 
w § See BVeeaevneaeevoc> «tt tee CeO RR YO FPtitreeereee es ORK 
SEMOeCecot@Mom@moae s>>>00424 VV a ewwOeH JU IJIDOIETEEMOMwYuyo>o o> i eEeace 
—eVUwWw JOM4 Muu e ZZ Zw £4 ZO IS OO eu EOI IY Stl tlk kkk kkk kk hl 
PNK DK MO VPVOVVV Ft HS ETM Sw VOTMNY— LUGO w& UE ZZVDEMVVVHVHWVVVHKVHVVUEZYMM 
seesctscepeeceeceeeeeeeee ee 6 me eee eee eee Eee 8 8 8 eR eRe eee hl 
aj IO See ee ee OP OO OOH BL DMOOMOOVYOY YY I I II MNVWMWMVWHVWVWHKHHVHOVOOR Ke eee 
PARMAAGAAGAAAMAAMAAMAPMAAMAAA titttiterit_tereteeereeeeeseeeeeeeeeeeeeeese 
DOOOOMOMOMOMDMMOMOMO OOM MOMOOMMOOMDODMD MOMMA MO OMOMDOODOOMOOMOOOOOOMOOOOOOOO®DOHO 
SS SS SS SS OS SS OS OS OS OSS OS SS SS OS SS OS OS OS OS OS OS Ot OS Ot tS tt tt tt St Ot ot ot SS St SS SS SS 
VVOOVQVOO COOVIEOIVOIIIIIVI SI QOVIIII A IVIAIIAIJBOIJI VII IS IIIBIIIIIIII9Vs9IV Ves 
bl ell ell ll al ell ll) oll Bl) 
Oooo°o°o°ooe o oOo 
>< CC OK OK OK OK OK 
WOSHOOSSCS a 


BSE ORO LENO EO Vr KOK K— NOK CMMNVOODOT DVYDVOVUVTYT TY 
OMOOM OM ONICUIOUIM & « -PNO SS SSS VOSS Re SSeS SSeS SSS SSSSS 


geereene 
rereenne 
eereraeee 
geaereree 
gereraene 
eeeerrne 
geereeeee 
eeeerree 


SOOCOSOSOSSSOSSSOSOSSSOSSOSOSOSOSOSSSSOSOSSSSSSSSSOSOSSSSOSOSOOoOSSS 


— 
aca 
[eeyvy) 
ao 
S< 
a 
ul 
So 
Ca 


é 
A 


SETENTRY 
SHUTENTRY 


RCOUNT 
RESOURCE 
RE TRANS 


ae 
MOMr JWOVOwe 62MM KX KOM uw 
z ‘=< 
ce) 


PaRRiddddddddddddtce2 2c’ 


ed Aad Od Ad A a te te te be ke he te te ke te he te te te ke te a te 


GHBSL 
GHBSL 
GHBSL 
GHBSL 
GHBSL 


EXESAL 
EXESDE 


-00 


ro V04 


_ 
** 
a 
= 
= 
o 
a 
us 
> 
ca 
a 
a 


Mac 
CILT 


MS 
SR 


1:40:22 LAT. 


L 8 
; 


= Local Area Terminal Port Driver 


LTDORIVER 
Symbol table 


Ll ll ll ll el ll al ll ll el ll ll lL el lh Bk ll lL ell lL ll lL loll ell ll ll lel ll lh ell el lh ell ell el Lh Lh lll lh 
CGOOOCOOCOSOOOOSOSSSOSOSCOCSOOCOSOSOOOCSOOOOOOOOCOOOOOOOOOO 


o o oOo 
@aacancaecacaoeacaeaeocaecaecaecacacaacacacaanaeaeacaeaeadcacacaca 


mw 

MUMMY 

waza za 

aro<a o oO 

vofca od 4 o ww _ 

Ovr--=zO — = wow 4 - “nO _ @ 

eww KOO > xe a are 2°Ede @Ow@® — En tiw = i 

Oe eee KM ITVUWE aw aor Vv Of2ze4 Yu > err 2ox erw> 
66 8 EMR a oS ewe ZavVvevoe @OjIrw Oo «act [DD eC — EYOMwW Kwestw 

Z2Zzzz2 +66 epdte tit @adunZz “Or2a2 @O fF P>roTt (eon u2<4< <a Oka ese OZzoO 

MMMMWMASS SZOIVVIG0S— YCWwwwwet YOO «K WMYwW 1 HAAG CD 111 eee ZO 

Seer vyZZwrvr7vwwder Dv oer 1 OCOBOHO LY Of CweDDODY TZaM>> ye ese wre 

WVWYVVUE 4 JEZEwaOxa Bude kev aA eo rd tt $e uw ee «+ 4-7 ewe 
eeeeee et et tt MCWwOY>Swwes-<iY>- 000742 224 13 >So 504600 xe DTD Ost 

VBVVVVVUOOVY IIIS 1 1) DMIM$ ee OWWww Oo Zee OW Eo tt DOV OW WW 
eeeeee tet tt § BAA CeEMVVVVGCOCOCOCCOWuwuu.r VUIETIMSSZeeeeeeecarvwmwmvnm 

HF & & & DO DMDDD ZO DHMMRA GHAR AA AA AA AAA AAPAPAAAAAPAAPAAAAPAAAPAAPAAAPAAAPARAHAAA 

“4 gC VV VV VV O00 OF ee ee 

cc ce cD cD ce ed ce ced ce ce ce ed ce ce ce ed ce ce cd ced ce cee cd ce cc ce ce ed ced ed cae cc ced cel cd cc ce ce cc ceed ced ced ced ce ce ced ce ed eee ceed ed ceed eed eed edd eed eed 


mene) Mmmm) 


folololoa) COoo°oo 

< xX OC 

YVVIUNU9NN 
race 
Ot IMFTOVO LVYIVNOOD € #€ FF FE VODDOOMOMN®D LOMO Ve OOKLA DOO LT ODOT UM FON TOY 
caowr SOO # #€ € # FE DOODONOONVOSOOSOTONACOT & ONMNOSOK— TONSOOOOSSSSS 
—KMIN— DOOOOOSSOSS £ # # F FE DOOSOOSOOSOSOSOSSOSOOOMSSOSOSSSu SOMSOoOSooooooooSo 
SSSsSsssssssss F€ # & FE DOOSCOOOOSOSOSOSSOSOSOSOSOSOSOSSOOSOSSTSOOoOoOoooooooo 
SOOCOOOOGOSSSSO # # & # FE DOOOSOOOSOSOOSSOSOSOSOSSOSSOSOSSOSOS OV OOOOoOOOoOooooeo 
SOCSOCSSOSOSSSOSS £ #€ & # FE DOSOOSOSOSOSOSSSOSSOSSSSSSOSSOSOSOSSOTSOOOSOOSOSOSOOSS OS 
SDOSOOSSSSOOESS £ # # F FE DOSOOOSOSOSOSOSSSSOSSSSSSSSOSSSSSOSSSSOSSOSSSoS 
COOOOOCOSOCOSSSSSOS £ # & FF COOSOOOSOSOSOSSOSOSOSOSSSSOSSSOSOSOSSOSSOSOSOSSOSOOOSoOS 
" 


— 
dl 
” 
> 
cos 


SIZE 
ONE_UCB 
E ucB 
C$GL_MUTEX 
CSMNTVER 


SOELET 
CRSN 


HO 


oo 


MMMMmMmm nM 
oooooeo oo 


anaes: Macro V04-00 
LAT.SRCILTDRIVER.MAR; 1 


x< x 
VVOGUVVVVVVYVUYO «a ee VOVIONOYVYV VO VII IVI III#§II§ V§VVIVVVVVVU0N 
HATOR-PK-CUMO— OTNODU TK FFE EMORK— AOR OCOKMTNOUIM SFR. ONOOK. OOM OOw rT DOoatnm-~sr 
SOOOCDOOOOOOOSOOOSOSOSO £ #€ # FU OOK MNO OOOCOCOOOCOOOCOONOC OO -DOCOCOOCOO 
SOOOOOOOOSOSOOSOSOSSOSOSOS £ € # Fe LHOWOOOOOOSOOSOSOSOSOSOSOSOOOOOOOOOOOOOOSoOO 
OOQOOOOOOOOOOOOSOSOSS £ € &F FF DOOO— SDOOSGOOCOCOCOSOSoSooSoooSoOoooSoOoOoOOOOoOOoOOoOoOO 
SGOOQOQOOOOSOOSOOSOOSOSS # #& # FE DOOOOOOOSOOOSOOSOOOOOSOOSSOOOOOOOOOOOOOOOoOO 
SOOGOOOOOOOOOOSSSS € # & &€ SOOO VDOOOSOOSOSOSOSOOOSOOSOOSOOOSOOSOOOOOSOOOSOS 
IN DSDOOQOOOOOSOOOSSOSSO # #€ & €§ QDOOSOOOOOOSOOSOOSOSOSOOSOSOSSOSSOSOOSOSOSOSOOSOOOOOoOOS 
FE EOOOSOOCOOOCOSOOSOSSOOOOOSOOSOOSOOOOOOOOOOOOOO 


«2oo nnnun " " naunn nnnnn 


--— 
o=- 
wv 
ooo 
an 
--— 
$68 
aa 
wow 
mn 
‘es 
ow oad 
ms Oo af z z 
wn” eo oO we w 
OWNo x— - @ -_ eaacr- [. 4 —_— Zz wiz i 
won0o <> Oo ow oO - ooo2zm euzuzt £uW w £ew ore 
errE>D> 2M hl ICUCUEM -Ca J 23> @aaoor- ZoOooo0o <«<e4 8 «ai aOoOow 
fe} aaaaa o0O ” G20 «00a " =—O <4 OuuenswOzZiz cwozza "IJ > 
al el a et ee) ee eee Lathes x= | (tt MZOV00— EW F&F 1 1 hw 82MM 
eee ee oe SEO VU Se VSO Der Ow ABAOWEM>Se Ow fi tt ee Ee eoOveUuawvdne 1 OD> 
= $660 8 BMMIUSWwee cover vuee=OF COON 1 1 &- OFC OOMOOOVY>awwe¢caer>>-aeozz 
‘= OO000400424KNMOE OMY 1 Ofte OOM RK Ce VVOOOOCOOCOA SAU Yr<OO-- 
ag ceeded ne ee ee ee ee De ee ee | ad col ee De Oe se ee eee ee 
> MMMNNMMVMODOOOOOOOee BB OE tte tt CCC OOMMOODOODOM OOMOMOAOMOMOMOOMOOVVV vow 
- eevee eee bb 6 8 8 6 8 8 t ORMMMBMOrM 8 Hr TEP eerererererererererereee ee eae aka ake ak ahaa 
(= PRARAARASD SI SSS lS SSP SS Se StI ITT ZVINOOCOF Re ee ee ee ee Re eR eR ee eR ee eR ee ee eR eee ee 
a SSeS S VV VV VV VU VY VUYUNOVVYVUWTS JS I I I I I I I I I I I I I I I I I I I I I I I I I I I 
O2OAO00 40 SSS SSCSSEEEFCMMNMVMVMNHVWVMNUMNAMKVHNMWVMWNMWWMHWVMAMHMMAWWMWMWMNVWHWHMHMHNHAMMMNNNNOYM 
ae 
= 
o 
a 
— 
© 
— bl el el ell ell ell | ll | ll ell ell el Ll ell ll ll Ll el ll lt lh Lh el Ll Lindl Lol Lie ell el Ll Lill Ll) Mmmrmnr 
£ OOCCOOCOCOOOCOOOCOCOCOSO COOCOCOCOCOOCOOOOoOO oooo 
a 
— 
<< 
«eo POPU TUT.) 
2 @Qaaacacaacacacaacaacaaca aacaccaacacanca ceca 
<< DCU OM @Mu. DODO 7 OWW- NO ODM Tu LOOM & € ODO LMP DOK -DVDOT ODDO 
NP LINOUN Oe WEIMO OD -OTFTOOLTVNOK OO Mur wse se COCOCOCAV0R— O- OMVUOMOSO——-OO 
= WWW OLD) FF LIMO VVOMNMNMNNMNNAAINOT & €§ COOOSu Lu OOCSCSOSCOSOSOOOSOOOOSS 
© OOOO —O-— OO 5O——— —-SDOSOSOSOSOOSOSOOOSSOS £« ¢ COOOOOOe-—- SOoooocoooooososooSD 
v COOQCOOGOOOOSOSOOOOSCSOSOSOSOSOSOSSOSSSSSS € « QCOSOSOOSOSOSSSOSSSSOSOSSSoOSS 
°o SOOOCCQIOOCOCOCOOSCOSOOOOOOOOOOSOOSOOOSoSOO « « Be ho eS OS SS SSeS 
i 


aa 
z as oe 
-” Ya v= 
z ye Ouw 
q =~ sy Jaze _ 
a w e<£Oou4o aoaodcwu z Vv 
we F 3 wreZzete ew 2 oO ke 
ov 27s - SG2eaew Jee wor - - zz 
—~ 2<« =) me a Veuve eV OTOA IZ Wa 1 _ S= 
2 wrevre —z we -O@MOOO >> °.80a42 xUIVZIZK CO Owe &-- OF 
t sett z= oc z no aZaquvvr1nvwdzZ 4-7 F 3 <25ree re 4 Seen vo 
ae wa — § ZO o SOOVCVVVUT$£& eve VEAanoo “WIj34aast 4 
uw ee — were a wm esptepeepegpegpgee tretitsn Mu O00000—w 
>~y~ «ae tt tht tt tt ttt Ftc wMWWUVUUMNM w Fttete [— a) 
=} ieee ZOO-NMMKVVHMVMHYVNNYVY eenenesn ~92352 2 ma) 
« ANWM MMM eee eee eeecare aaaarr al aed el ae aa 
Ss See fat ee RS aatatttniny tt tt ter ttt ttt 
me w 
“4 JJ Se DESesesex2sooooooaa a 


| 


-00 


$346 PAK(vas Macro V04 
:22 (CLAT.SRCILTORIVER.MAR; 1 


wv 


= Local Area Terminal Port Driver 


LTDRIVER 
Symbol table 


mmm CUCU CUCUMmIMmcucuCU ~~ 

ooo Soooooooo°oo o 

<> >< DC OC OK OK OK OK OK OK OK 
VUVVIVIVIV VII VN VVUYVY a a VouVUIY 
TFLOMVOVOUMLOQOwoOod € #MOLOMenr VITODooeaOCe Ws Fee eRe FEORNO RK WODVOVNOm 
SODOCO- CO ft. O-- OOO # € DOOMOCOCOWVNSCKWOOCOCO eee eee eee HEOOOTINoOOws~sOow 
SOGOOOSGSOOOOCOOSOSS # € PBOOOSOOSOSOSCOCOCSCSCOSO ec ee eee HEE EOOOOOOCOCOC eK Kee — 
SOOOOOOSOOOOSOSOOSOSOS € # —DOOOCSCOOCCOCSCSOSCSCOCO eke eek EOO-—COOOCOOCOOCOCOCO 
SOGOOOSOOSOOOSOSOSS # € DOSOOSOOSOOCSOSOSCSOSOSOOOCO ee ee KEKE EE EOQOOOCOOOOCOOCOOCOOCOO 
SOOGOOOOOOOOSOSOOSS # # DOSS SOOCSOOSOOCSOSSOOOCO ee eK KEK EEE EOQOOOOOCOOOOCOOCOCOOO 
SOOOOOOOOSOSOOOSOSS # # SOOO OSOOOOCSOOSOOCOCOCO eee eee EEE KE OOOCOOOCOOOCOCOOOCOCOO 
SOOOOOOOOOOOOSOSOOSO # #§ DOOOOOOCOCOCOCOOCOCOOCO ee ee KE KEE ET KE OOOOOCOOCOOCOOOO 


Vaz a a N ws ” 
mw z z = >= oa w ca = ” za 
ow w Ew SINPE ae Vv > w>rodcae wun Ww wvdtu 
—_+ = + a ae" we Ww OT =z “aaoagrwittet =—<5 <a §-§ 23EarD>F- 
VIwiOanw two t w MOoOOD a §-AaU0 <a SVWZODHOewWeoVrF- DAO a> 2 @Or<oct 
KOQVWMEZ&Se VvowvVvo0dO FwOwes wWrewvez-—BoOVugoauwuw se Zu OZ Ve sesjvvcow 
<Odw>><«witoood>-<avenrn §—-Aa220 008 IN > OOF 2wltVwwwiBwae tu S>oaratitits 
EZZACQAAv>I>— UZ FO OF wVveww VME SIME OATOCOOCCOOC COACH Wwe ete eee 
#espeecee eee se eee tt tt SUM TOovMVOrweweTtr tpstsrrrrsr is aw ooouswe jjijiji 
MBOMODOODOOVVl. &- &-- 3BIIISZ $see ett $ Kee2z | MOOOIIIIIBsB 1 1 #00686 6 6 6 6 6 
eeoceeeee te ete 0 8 8 t OWOOVCVVIEZSOS 1 § OF rPVVVVOVVVIVUVSY DBDAOODOODOOO®D 
S&F AH UMAGHRHAGAAGHAATE— PRHAAHAAAARHAAAA 1 KLHAPAAAAAAPA 
SeSSSSSSSSSSSSSCVV ES WWW WW WWW WAAROOUN> > > >> > > > > > > > COMMOMOO®OOOQ®D 
eee ee > TOO OOOO OO OR Re ee ee ee BOO VV UV UU UU 
AMNANMNAMNMNNMNMNMNNNWVNWNOWNON & ee ee ee ee ee DDD DF DDD FD 

me ~~ 

oo o 

<< 
VVIVIVOIOIIVIVIOIOVYVOOPN IBY IBOIIVOI IVOI_VIIIIIIIIIVIFCIVI§ VVUVVVVIVI VV VV V9NVYU we, Seeese 
DBR OD NINDS SF OST EK MUCK OK MMA KH MNMKNTFDNOWM € FORK MVUOMWE uw 
OOOOOOOS— COGCGOOCOOOCOOCSCSOOOSOOOOCOCOOOOOOOMOOSOOSOSO £« # OOTOOONC O 
COOCCCOCOOOOCOOOCOOOOCOSOSOOSOOSOSOSOSOSOOSOOOOOOOOOOOOSSOOSSOS #« ¢ SODWOOOOSO 
COOOOOOOSOOOSOOOOOOSOSOSOSOOSOOSOSOSOOSOSOOSOSOSSOOSOSOSOOSOOOOOOOOOSOoSS #« # OO-SOOSOSOS 
COOOCQCOGOOCOCOCOGCOOOOSCOSOSOSSCOOSOCOSOOOSOSOOOOSOOOOOOOSSOoOSS « ¢ COOSOOOOOSOS 
OOOOCOCOOOOCOOSOSOOSOSOSOOSOOSOOOSOSOSOSSOSOSSOSOSOOOOOSOOSSOOSSS #« ¢# SOSOSOOOSSOOS 
COOOOOOCOOOOSOOOOOOSOOOSOOOOOSOOSOOSOOSOSOSOSOOSOOSOOOOSOSOSOSSSOS #« # SOSOOSOOSSS 
OOOO OOOOOOOOOOSOOOSOSSOCSSOSOSSOSOSSCSSOSCOSCOCOOSOSSSSSSSOS £« &§ COSOSOOOOO 


SLOT 
N 


al eed Sed Steel 2 Sol eel Sok =) 
POWOUWUPOWOWWOWOWS IE | 
” 
WW ee Sr VEE EETEMMMMY>S Soro rVUVUVY 
SZauwwmuwwwmn> ttittiteess 


bad 
- 
a ee 
wYICCYMNEE MNES WMYNE NAS == 
~~ 
[. q+) 


RT 
LE 


AX/VMS Macro V04-00 


244 


1:4 


- 
** 

a 

=< 

= 

. 

fod 
w 

= 

-_ 

i. 4 

a 

~~ 

) 
aq 
(=) 
a 
” 

. 

— 

< 
= 
Tela 
™N 
™N 
oo 
wT 
- 
o- 
ww 
cco 
an 
-m 

ss 
aa 
sus 
mm 
oe 

own 


1 


9 


- Local Area Terminal Port Driver 


Symbol table 


x 
te 
> 
= 
a 
o 
_ 
a 


me 
oo 


Oo YVUOOOUOUYUYU ace VIVOI VO GOOSO SV IOV IYI GIN VVVVVVVVVV9VV99 


HOMO — — OTM ANDO OV DOW ST TNO VUOue ££ OOO OCT LO WOVUDONOR UM LOOWVOuU0C— 
So Sosa Ss oooooooos WANE EO SF TTT TT TNT OST INO. DOM Fr rrr IO 
SOOO OOOCOOOOSoOSoOOOOOSo— —- SO - SDOooooooooooooooooooooownaoocooooo 
SOOOCCOOOOOOOOOOOSOOOSOOSOSOS | - SDoOOooooooooooooooooooooooooooooo 


L- 4 

Ow 2z2zzm “no 

<x<zoacz Swwwy 2 “sa 

3a a 63 ~ ww2z aeUwwe ZZee > ” ww +<«o 
Oovur-a 2.-OoO we Nwwre oO - Rew > ae «6§l a = a Jo 
+ da 2a0o3074 +o Qa 2 JUW a = (it) Oue>euwwa ww o «vo 
wewOrDdr<etOoZaw au Vrw YWYrerw <= 2 2m @aaca | & WiZOoteeevww 2H + tt 
>-@MOdtwiuet SZoaeufDe 2a wwlSD ea -—-—-— OO — Ss Dao ZO7D<OsD ewe Soo) OOoOkszsz 
Ow et MOOwe FZ—-Owd OVVMVOAO04 OR RRR Oe HOV VV UO Lett IE ZZ ZIM sts mt 
ee ee ee ee ee ee Set et el ee ee eee fe Pee 
WU ee ee OW OI ZOO Ze ZOOM H BO VV V VV VU VV VU VUUVUUUUDWEegoo 
4H0 jJ4jj4jIjI 0 OOw Ss oe ee ee OW OO eCOOuUE ESE SES ESSE SE SESET SESE ETTEZ2OMOw uu 
seesepeepeeceececegcegceeegeeeeste st} Orom tpt eet ttt ht ahah heath kak ahahaha ahah kkk kkk ee Se 
YSPrS SPSS PF IPIPTBBBBIIIIZIIBIOOU L NV WMD MDMOMMDOMOMOMMOMOMDOAMOMOOOOOOMDOOOOOww 
PFPRHARAAAAAAAAAAAAAGAEAAAAA | MeA tiitititteitrtr_trttererseeeesteeeseeeeee 
DOODODOMODDOODODOOMDOAMOMMMMOODOWWVV Ve ee ee ee ee ee ee ee ee 
BV VV VOEVEYE YE VVUEVVEVYVYVVUUVUVUUUUOWWWEEETESELAESSEEAESESEASESESTESESEAEAESEIIzz 
pose Soe Jee ee eee ee ee eee Bee ee Fee Fee fee fee ee ee ee ee ee bee ee ee bm ee be ee ee 2 te tt ee te tt te tt + + + + + + + + Ss Se SS 
YVVVINVVVVIVO9 PU TUTC TET) vuuoo VEVEQGQNQN9NNN VBVIU9O0UNU9NUN 


- a at te rg Fe MeN BA en ee VTTOTDVOVODOTF OVNI ORK UN OTOr ee eee — 
ww rr Ta OOOOH TF MPIINDO ee OOF OVE — —- DQAVOCOCOOCOCSo-o-COooooSceo 
Se re ee OO - OOOO r- OOOO O8— —- -So—-SO0So- oe —- -SoOoooooooooooooooooo 
B88 8888S SSS SSS SSS SSS SSS 8S SSS SSS SS SSS SSSSSSSSssssssssse 


COOOOCOCOOSOOOSOSOSOSOSOOSOSOOOOSOSOSOOOOSOSOOSOSOSOSSOOOOSOoOSSOS SOooooooooeo 
SOOCCOCOOOOOSOOOSOOSSCSOOSSOSOSSSSOSOSSSSSOSOSSSSOOSOSSSOSSOSSOOSOOSOOOSOOSOSOSSS 
SSS SRS SSS SSeS SS eee SSO SS SoOoOoOoooooooooooooooo oooo OOoooo 
oo COOOSOCOOSOOSOSOSSOSOSSSCOSSSSSSSOOSOOSSOo OOOCOoooe 


— 
+ ea 
+~2Z2<zoO 
-— See Pea 
~—aeww z 
Pe “wut § 6 8 Qo mE ae - Oa - DMM a 2 a 
So SB80O0OMWO0COA 4 &—Wwwwwe NS wD “4 eaxvo xOZZ -§-S 3> -S P= 1 ad 
OWI tl Ee OP xeaow oF “YrtTozD<-2E- &£<92 pom ee | ee<o22S7 
exadetodacar-+Z2aacacaZz <<a oc V3 OF are I Sas Zauww pe za 
Od Ow Sr VOWW DW i ee ZIwwel jwwwwO) re i 2 <ws=2=9 <«wi<tZz 
AES KOOOIMMYY I YVOV8B— YVOOooYUY aa3ss @Ooour-0O-a@Mo0ur 
(teeter eeceereerret es 6 w@eo>>> tr tiammittte rete hea hh hha eeueanne 
OO i ee 2 
aot I I VOC OSB BIO Re ee ee ee ee ee mt 8 I I I I I I IO I I I I I 
BOSSOODSNEE owe dO TSS SSS 8S eran 
PAAAADAAAAAAAAAAAADDAAAAAADAAAADADAAAAAAAAAAAAAAAAAAAAAAAD 
BDOOODOOMDOOOOMOMOMMNMOODADDMDOOOMAAANM OOMDASCOOMODODOOOOOODOOOOO®DODOOOOCOO® 
BE BBB BOB BEB BBE BBV VOB BV BOBO VU BVO OVS BVOC O VOC OC BEV OVE VEO VE VOVOEVUEYUYY 
po Boe Bowe Doe Som bom Fee Sem Dee Bee em ee em em bm em Bem oe be em bem be ee be = bm be be be be be bm be be be be bm be be bb bm me ee 


C 
= Local Area Terminal Port Driver 


LTDRIVER 16-SEP-1984 01:46:44 VAX/VMS Macro V04-00 Page 117 | 
Symbol table ae Mid :22 CLAT.SRCILTDRIVER.MAR; 1 0° 166) | 
XMT_CHFLG_M_NDESC = G | 
XMT_-CHFLG_M_OTHER = G 
XMT~CHFLG_M_RATE = G 
XMT~CHFLG_M-SDESC = 10 G 
XMT~CHFLG_M_SVCNAM : 4 G 
XMT“CHFLGS"CLASS = 16 | 
XMT~CHFLG_S_GROUP = 1 6 
XMT~CHFLG_S_NDESC = 1 6G 
XMT~CHFLG_S_OTHER = 0 1 6 
MT~CHFLG_S_RATE = 1 6 
XMT—~CHFLG_S_SDESC = 1 6G | 
XMT~CHFLG_S_SVCNAM = 9 1 6 
XMT—~CHFLG_V_CLASS 2 5 G | 4 
XMT~CHFLG_V_GROUP = 00000000 6G 
XMT~CHFLG_V—NDESC = 9000001 G 
XMT~CHFLG_V_OTHER : 909 007 G 4 
KMT~CHFLG-V~RATE = 00000003 G 4 
XMT~CHFLG_V~SDESC = 00000004 ¢ | 000 
XMT~CHFLGV-SVCNAM = 99000008 G 0001 
KMT~C_HDRCEN 2 990000 G a 
XMT~C"MAXDATA = 00000504 G 
XMT~C"MAXLEN z 90000634 G 000( 
XMT—C"MC_LENGTH = Q0000000A G 0001 
XMT“C"MC7SVC_ SIZE = 90000053 | 0001 
XMT~C"MC~TOTA = 0000023A G 0001 
XMT~G_DST 0000003A G ae 
XMT~T-DATA 90000048 G | 
KMT~T-MC_GROUP 00000055 G | 0004 
XMT~T-MC_1D COOD009A G 0001 
XMT~T—MC"MORE_SVC 90000004 G 000( 
XMT~T"MC NAME 9000089 G 0001 
XMT~T"MC NODE 00000076 G Boot 
XMT_T_MDATA aaa ea G 
XMT"W"DSTID 000004A G 000 
XMT"W"MC_MSG_SIZ 00000050 G 0001 
XMT~W~SRCID 0000004c 6G oon 
iecatieemndarennniadd ’ 0001 
' Psect synopsis ! 0001 
os a | 0001 
PSECT name Allocation PSECT No. Attributes | itt 
. , 9000 0 ( ) 99 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE | 900 
$ibs onovocu Gaunoone ¢ $65:) Oh 2c} Minit UR EN ARE EEL ABS ENE BURT ADVE STE 
L e ° 
$$$115-DRIVER 00001BA6 ( 765 ») 08 ( $:} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 000 
mewn sem ocoe wesc oawnmaemameaeaes + 
! Performance indicators ! 000 
$eeeeoeeocecoeeeoeeeeeoecoes | 
Phase Page faults CPU Time Elapsed Time 090 
= mrmmm 0 @£@  @2~—— lite Ae ae ee ee ee an eine mmm ame a lie ee ee a mma ms me li ee ee ee ee ee ee ee ee | 
Initialization 9 0: 0:00.11 0:00:01.9 
Command processin 133 0:00:00.77 0:00:07.1 
fess |” ° 969 0:00:46.36  00:01:34.16 
es CeO Ce — - _~ | cel 
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LTORIVER = Local Area Terminal Port Driver 1 mish 9 91:4 744 \VAX/VMS Macro V04-00 
VAX-11 Macro Run Statistics -SEP-1984 11:40:22 CLAT.SRCILTDRIVER.MAR;1 
Symbol table sort :00:046.64 :00:06.17 
Pass 5 426 : ‘? $3 :00: § 
Symbol table output 1 :00:00. 7:00:00. 
Psect synopsis output :00:00.03 :00:00.0 
prose recerente cutout 149% . 8 y: : 98 
Ass er run totals . :02:20. 


The working set Limit was 2850 pages. 

232981 bytes (456 pages) of virtual memory were used to buffer the intermediate goge; 

There were 160 pages of symbol table space allocated to hold 2610 non-local and 349 local symbols. 
4711 source Lines were read in Pass 1, producing 49 object records in Pass 2. 

105 pages of virtual memory were used to define 97 macros. 


b$ereenrnn eee ees erm n wre wes eee $+ 


H Macro Library statistics ! 


em ae mm oe ee 
Macro Library name Macros defined 
-$255$DUA28: ote ata hen 1 
_8255$DUA28: ave URe LIB.MLB;1 39 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 10 
TOTALS (all Libraries) 50 


2819 GETS were required to define 50 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:LTDRIVER/OBJ=OBJ$:LTDRIVER MSRC$:LTDRIVER/UPDATE=(ENH$:LTDRIVER) ¢EXECML$/LIB+LIB$:LAT/LIB 
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